Création d'une macro Excel pour plusieurs graphes avec les mêmes valeurs de x, mais différentes valeurs de y

Je suis en train d'automatiser la création de graphiques dans Excel à l'aide d'une macro.
Au fond, j'ai beaucoup de données (41 colonnes, à partir de la colonne C de la colonne AQ), chacune contenant un autre "nom". Dans une colonne il y a deux séries de deux différentes sections de ligne (un à partir de la ligne 3 à 8, l'un à partir de la ligne 12 à 17 ans).

J'en veux un graphique par colonne, donc au total je vais avoir 41 graphiques. Chaque graphe contient les deux séries. Dans la colonne B sont les valeurs sur l'axe des X, et ce, pour chaque graphe de la même.

Le but est de créer une boucle for next avec les valeurs de l'axe y, et ont tous créé à la fois.

J'ai essayé de codage de la première partie (juste la création d'un graphe avec sur l'axe des abscisses les valeurs à partir de B3:B8 et sur l'axe des ordonnées les valeurs de C3:C8, et la deuxième série, juste quelques lignes en bas.

J'obtiens une erreur et je ne comprend pas pourquoi, j'ai essayé différentes approches, mais il ne fonctionne jamais. L'erreur situe dans cette ligne: ActiveChart.SeriesCollection, (1).Valeurs = Range(Cells(3, 3), Les Cellules(8, 3)).Valeur

Quelqu'un a une idée de ce qui peut être mal ou comment s'attaquer à ce problème?

Sub Macro5()

    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).Name = "='Blad1'!$A$1"
    ActiveChart.SeriesCollection(1).XValues = "='Blad1'!$B$3:$B$8"
    ActiveChart.SeriesCollection(1).Values = Range(Cells(3, 3), Cells(8, 3)).Value
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(2).Name = "='Blad1'!$A$10"
    ActiveChart.SeriesCollection(2).XValues = "='Blad1'!$B$12:$B$17"
    ActiveChart.SeriesCollection(2).Values = Range(Cells(12, 3), Cells(17, 3)).Value
    ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
    ActiveChart.Axes(xlValue).MajorGridlines.Select
    Selection.Delete
    ActiveChart.SeriesCollection(1).Trendlines.Add
    ActiveChart.SeriesCollection(1).Trendlines(1).Select
    Selection.DisplayEquation = True
    Selection.DisplayRSquared = True    
    ActiveChart.SeriesCollection(2).Trendlines.Add
    ActiveChart.SeriesCollection(2).Trendlines(1).Select
    Selection.DisplayEquation = True
    Selection.DisplayRSquared = True

End Sub