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("B2😀6").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