Saisie de données sources pour graphique

[Elve]

bonjour à tous,


Je voudrais créer des graphiques à partir d'une feuille comprenant plusieurs plages du type:

avril mai juin
Piece 1 ent 1 2 1 12
ent2 36 2 444
ent3 63 365 111
ent4 0 100 1000
avril mai juin
Piece 2 ent1 1 2 23
ent2 2 36 22
ent3 5 252 22
ent4 1000 100 0
avril mai juin
Piece 3 ent 1 2 1 12
ent2 36 2222 444
ent3 222 365 4234
ent4 1000 0 100
Je voudrais faire autant de graphique qu'il y a de pieces (nombres de piece non fixe)
Il faudrait donc je pense que je fasse une boucle au niveau de la saisie de la plage.

Soit le code

Range("B26").Select
Charts.Add
ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
"Courbe - Histo. 2 axes"
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("B2:E6"), PlotBy:= _
xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil2"

Comment faire pour creer range("case1:case2") avec case1 et 2 des valeus correspondant à des cellules , ces valeurs pouvant etre incrementée?


Toute aide, conseil serait la bienvenue
Merci d'avance
Elve