porbleme avec la propriété weigh

Bonjour il me fait une erreura la ligne ou Weight est affiché

With graph.SeriesCollection(3).Border

        .Weight = xlHairline

        .LineStyle = xlNone

voila le début de mon code alors je ne comprends pas pouruoi cela ne fonctionne pas (ca fonctionnait avant) j'ai juste changé Feuil1 par Feuil2

xls.Workbooks("e_analyse_croisée.xls").Activate

    xls.ActiveWorkbook.Worksheets("Feuil2").Activate

 
    Set feuille = xls.ActiveSheet

'    xls.ActiveSheet.Range("B53:J54").Select

    feuille.Range(feuille.Cells(53, 2), feuille.Cells(54, colonne)).Select

 
Set graph = wbfile.Charts.Add

 
    'récupération des données avec type de graphique demandé

    graph.SeriesCollection(1).ChartType = xlColumnStacked

    graph.SeriesCollection.NewSeries

    graph.SeriesCollection(1).XValues = "=Feuil1!R3C2:R4C" & colonne

    graph.SeriesCollection(1).name = "Préjudices en France"

    graph.SeriesCollection(2).XValues = "=Feuil1!R3C2:R4C" & colonne

    graph.SeriesCollection(2).name = "Préjudices à l'étranger"

    graph.SeriesCollection(3).XValues = "=Feuil1!R3C2:R4C" & colonne

    graph.SeriesCollection(3).Values = "=Feuil1!R48C2:R48C" & colonne

    graph.SeriesCollection(3).Select

    graph.SeriesCollection(3).ChartType = xlXYScatter

    With graph.SeriesCollection(3).Border

        .Weight = xlHairline

        .LineStyle = xlNone