' ----- Calcul position du graphe
For Cpt = 0 To NbColonnesAvantGraphe-1
DecalHoriz = DecalHoriz + Range("A1").Offset(0, Cpt).ColumnWidth
Next Cpt
PosHor = DecalHoriz * 5.71 + n
For Cpt = 0 To NbLignesAvantGraphe-1
DecalVert = DecalVert + Range("A1").Offset(Cpt, 0).RowHeight
Next Cpt
PosVert = DecalVert + m
' ----- Création du graphe
With .ChartObjects.Add(Left:=PosHor, Top:=PosVert, Width:=200, Height:=100)
etc...