ActiveSheet.Shapes(SonNom).Top = Range("D2").Top
ActiveSheet.Shapes(SonNom).Left = Range("D2").Left
ActiveSheet.Shapes(SonNom).ScaleWidth 1.21, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes(SonNom).ScaleHeight 0.95, msoFalse, _
msoScaleFromTopLeft