Pb graphique range

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Range(Cells(4, 1), Cells(32000, 2)).Select
    Charts.Add
    ActiveChart.ChartType = xlXYScatterLines
    ActiveChart.SetSourceData Source:=Worksheets(1).Range("D2:E32000"), PlotBy _
        :=xlColumns
        
        
    
    ActiveChart.SeriesCollection(1).XValues = Worksheets(1).Range("a4:a32000")
    ActiveChart.SeriesCollection(1).Values = Worksheets(1).Range("b4:b32000")
    ActiveChart.SeriesCollection(1).Name = Worksheets(1).Range("a2")
    ActiveChart.Location Where:=xlLocationAsNewSheet, Name:=Worksheets(1).Range("a2")
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Concordance de la cellule "
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Date"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Concordance (%)"
    End With
    ActiveChart.HasLegend = False
    Worksheets(1).Select

le code suivant ne fonctionne pas et l'erreur se met sur la partie en gras
je ne le comprend pas
merci de votr aide