re
Voici une macro de GeeDee qui fais cela trés bien, il te faudra ajuster un peu les parametres
Sub Placementgraph()
'macro Geedee
NbparLigne = CInt(InputBox("combien de graphes par ligne ", , 1))
Largeur = CInt(InputBox("Largeur d'un graphe en pixels ", , 200))
Hauteur = CInt(InputBox("Hauteur d'un graphe en pixels ", , 150))
Ecart = CInt(InputBox("espacement entre graphes", , 10))
nbtot = ActiveSheet.ChartObjects.Count
For i = 0 To nbtot - 1
With ActiveSheet.ChartObjects(i + 1)
.Width = Largeur
.Height = Hauteur
.Left = Ecart + (i Mod NbparLigne) * (Ecart + Largeur)
.Top = Ecart + Int(i / NbparLigne) * (Ecart + Hauteur)
End With
Next
End Sub