ActiveSheet.ChartObjects(1).Left = 640 'La distance que vous désirez à partir de la gauche
ActiveSheet.ChartObjects(1).Top = 115 'La distance que vous désirez à partir du haut
With ActiveSheet.ChartObjects(1)
.Left = Range("G12").Left
.Top = Range("G12").Top
End With
SonNom = ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name
ActiveSheet.Shapes(SonNom).Top = Range("E4").Top
ActiveSheet.Shapes(SonNom).Left = Range("E4").Left
ActiveSheet.Shapes(SonNom).Width = ActiveSheet.Range("E4:L22").Width
ActiveSheet.Shapes(SonNom).Height = ActiveSheet.Range("E4:L22").Height