Sub Image9_Cliquer()
    Static winit!
    Dim w!
    With ActiveSheet.Shapes(Application.Caller)
        If winit = 0 Then
            winit = .Width
            w = Application.CentimetersToPoints(50)
            .Width = w
        Else
            .Width = winit
            winit = 0
        End If
    End With
End Sub