Insérer graphique avec une taille et un emplacement prédéfini

'Maintenant, soyons fou, un ptit graph !
   
    'Je sélectionne mes quatre cellules importantes en fonction du numéro d'une ligne précédemment définie.
    cel1 = Cells(Ligne + 1, 1).Address(0, 0)
    cel2 = Cells(Ligne + 2, 2).Address(0, 0)
    cel3 = Cells(Ligne - nb - 1, 5).Address(0, 0)
    cel4 = Cells(Ligne - 2, 9).Address(0, 0)
    
    'Je sélectionne les données pour mon graph
    Range("cel1:cel2").Select
   
    
    'Code magique pour graph (Trouvé en enregistrant sur Excel)
        ActiveSheet.Shapes.AddChart.Select
        With ActiveChart
            .ChartType = xlPie
            .SetSourceData Source:=Range("Bonjour!$A$30:$B$31")
            .SeriesCollection(1).Select
            .ApplyLayout (1)
            .ChartTitle.Select
            .ChartTitle.Text = "Taux Global d'avancement"
            .Name = "Tomy137"
        End With
        
        
        'On dimensionne et on place le joli graph'
     
        With ActiveSheet.Shapes(Tomy137)
            .Width = ActiveSheet.Range("cel3:cel4").Width
            .Height = ActiveSheet.Range("cel3:cel4").Height
            .Top = ActiveSheet.Range("cel3").Top
            .Left = ActiveSheet.Range("cel3").Left
        End With

.Name = "Tomy137"