bonsoir,
après quelques recherches et tests, j'ai trouvé la solution.
Dim ch3 As ChartObject
Dim r1 As Range, r2 As Range, r3 As Range, myMultiAreaRange As Variant
Set r1 = Range(Cells(ligne_debut, 1), Cells(ligne_fin, 1))
Set r2 = Range(Cells(ligne_debut, 6), Cells(ligne_fin, 9))
Set r3 = Range(Cells(ligne_debut, 11), Cells(ligne_fin, 11))
Set myMultiAreaRange = Union(r1, r2, r3)
myMultiAreaRange.Select
Set ch3 = Worksheets(feuille).ChartObjects.Add(500, 30, 400, 250)
ch3.Chart.ChartWizard Source:=myMultiAreaRange, _
gallery:=xlColumn, Format:=4, PlotBy:=xlRows, CategoryLabels:=1, SeriesLabels:=1, Title:='Resp client', _
CategoryTitle:='mois', ValueTitle:='nombre de retours'
je reste toutefois intéressé par une méthode plus orthodoxe !