Bonjour,
Je me suis dépatouillée comme j'ai pu. Ce n'est probablement pas la solution des puristes mais ça peut peut-être t'aider.

J'ai créer mes graphiques puis les ai mis en forme 1 à 1 avec cette petite procédure :

Sub TaillePositionGraphique(QuelleFeuille)
Dim Cible As Integer
Dim i As Integer

For i = 1 To 7 'Appels les 7 graphiques Graphique1, Graphique2....C'est mieux de leur donner un nom plutôt que de prendre le nom Excel mais je ne sais pas faire.
ActiveWorkbook.Sheets(QuelleFeuille).Select

' Positionne les graphiques
Cible = 24 + (i - 1) * 11 'Calcule le numero de ligne ou je veux mettre chaque graphique
ActiveSheet.Shapes("Graphique " & i).Left = Range("A" & Cible).Left 'Positionnement Horizontal
ActiveSheet.Shapes("Graphique " & i).Top = Range("A" & Cible).Top 'Vertical

'Definit la taille du graphique.
ActiveSheet.Shapes("Graphique " & i).ScaleWidth 1.4, msoFalse, msoScaleFromTopLeft 'Largeur
ActiveSheet.Shapes("Graphique " & i).ScaleHeight 1.2, msoFalse, msoScaleFromTopLeft 'Hauteur
Next i
End Sub

Bonne soirée,
Florence.