Dim b As Boolean, l As Boolean
Sub Image0_Cliquer()
Dim shp As Shape
If b = False And l = False Then b = True Else b = False
Set shp = ActiveSheet.Shapes(Application.Caller)
Dim big As Single, small As Single
Dim shpDouH As Double, shpDouOriH As Double
big = 1.2 'n'importe quelle valeur entre 0.01 et 1000
small = 1.25 * 1.33 'n'importe quelle valeur entre 0.01 et 1000
With shp
If b = True Then
.ScaleWidth small, msoTrue, msoScaleFromTopLeft
.ScaleHeight small, msoTrue, msoScaleFromTopLeft
.ZOrder msoSendToBack
Else
.ScaleHeight big, msoTrue, msoScaleFromTopLeft
.ScaleWidth big, msoTrue, msoScaleFromTopLeft
.ZOrder msoBringToFront
b = False
End If
End With
End Sub