Excel Macro boucle

Salut,

Dans mon tableau sous excel, j'ai des données sur une même colonne et j'aimerais faire une série de graphique avec une boucle pour avoir un graphique toute les 12 lignes
ci dessous la macro que j'ai enregistrée grace à excel et que j'ai bidouillée ensuite :

'Dim i As Integer
'Dim lig1 As Integer,lig1 = 2(ligne ou je voudrais que ma macro commence)
'Dim lig2 As Integer,lig2 = 13 (ligne ou je voudrais que ma macro finisse)

For i = 1 To 28(j'ai 28 graph à faire)

Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("cat10_20").Range("D2:D13"), PlotBy:="xlColumns"
ActiveChart.Location Where:=xlLocationAsObject, Name:="cat10_20"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
lig1 = lig1 + 12
lig2 = lig2 + 12
Next i

End Sub

Je pense que je dois intégrer mes variables dans Range mais j'y connais pas grand chose.

Merci à tous ceux qui pourront m'aider.