[COLOR=blue]Private Sub[/COLOR] CommandButton1_Click()
CommandButton1.Caption = IIf(CommandButton1.Caption = "Afficher", "Masquer", "Afficher")
Shapes("Image 1").Visible = IIf(Shapes("Image 1").Visible = [COLOR=blue]False[/COLOR], [COLOR=blue]True[/COLOR], [COLOR=blue]False[/COLOR])
[COLOR=blue]End Sub[/COLOR]