Redimensionner tous mes graphiques

Option Explicit
Sub PositionGraph()
    Dim graphWidth As Long, graphHeight As Long
    Dim TopPosition As Long, LeftPosition As Long
    Dim Graph As ChartObject
    'Positionne le premier graphique
    With ActiveSheet.ChartObjects(1)
        .Left = Range("c10").Left
        .Top = Range("c10").Top
    End With
    'Active le premier graphique
    ActiveSheet.ChartObjects(1).Activate
    'On récupère la taille du graphique actif(ChartObjects(1))
    graphWidth = ActiveChart.Parent.Width
    graphHeight = ActiveChart.Parent.Height
    TopPosition = ActiveChart.Parent.Top
    LeftPosition = ActiveChart.Parent.Left
    'Déplace, positionne ( le reste des graphiques ) et mise à la taille du premier graphique
    For Each Graph In ActiveSheet.ChartObjects
        Graph.Width = graphWidth
        Graph.Height = graphHeight
        Graph.Top = TopPosition
        Graph.Left = LeftPosition
        TopPosition = TopPosition + Graph.Height
    Next Graph
End Sub