Sub Bouton1_QuandClic()
Set myDocument = ActiveSheet
nbimages = myDocument.Shapes.Count
For i = 1 To nbimages
If Left(myDocument.Shapes(i).Name, 3) = "Ima" And myDocument.Shapes(i).Visible = True Then myDocument.Shapes(i).Visible = False Else myDocument.Shapes(i).Visible = True
Next
End Sub