Incrémenter une ligne

Sub Macro1()
'
' Macro1 Macro
'

ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
ActiveChart.SetSourceData Source:=Range("C5:H5")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(2).Name = "=Feuil1!$C$5:$H$5"
ActiveChart.FullSeriesCollection(2).XValues = "=Feuil1!$C$3:$H$3"

End Sub


Bonjour à tous,
ci-dessus mon code qui me permets de créer un graphique. je dois créer plusieurs graphiques donc pouvir passer d'une ligne à celle d'après. J'ai essayé de mettre :

Sub Macro1()
'
' Macro1 Macro
'
For n = 5 to 4

ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
ActiveChart.SetSourceData Source:=Range("Cn:Hn")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(2).Name = "=Feuil1!$C$n:$H$n"
ActiveChart.FullSeriesCollection(2).XValues = "=Feuil1!$C$3:$H$3"

End Sub


et ça ne fonctionne pas. je n'ai jamais fat du vba avant. quelqu'un peut m'aider s'il vous plait?