Sub Image1()
With Sheets("Feuil1")
.Shapes("image 4").Visible = False
.Shapes("image 2").Visible = True
End With
End Sub
Sub Image2()
With Sheets("Feuil1")
.Shapes("image 4").Visible = True
.Shapes("image 2").Visible = False
End With
End Sub
Sub Image1()
With Sheets("Feuil1")
.Shapes("image 4").Visible = False
.Shapes("image 2").Visible = True
End With
End Sub
Sub Image2()
With Sheets("Feuil1")
.Shapes("image 4").Visible = True
.Shapes("image 2").Visible = False
End With
End Sub