Quelqu'un peut-il m'aider à débuguer ce code ? Plante sur la dernière ligne. Merci d'avance.
Bernard

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Set r1 = Range(Cells(NbLignes1 + 6, 2), Cells(NbLignes1 + NbLignes2 + 6, 2))
Set r2 = Range(Cells(NbLignes1 + 6, 5), Cells(NbLignes1 + NbLignes2 + 6, NbColonnes2))
Set r3 = Union(r1, r2)
r3.Activate
 
Charts.Add
ActiveChart.ChartType = xlColumnStacked
ActiveChart.SetSourceData Source:=Sheets("Volumes").r3, PlotBy:=xlRows