Sub Affiche_Masque_ImagesXL2007()
'MJ pour [URL]https://www.excel-downloads.com/threads/cacher-et-afficher-images.124183/[/URL]
Set myDocument = Worksheets(1)
'With myDocument.Shapes(1).PictureFormat
'.Brightness = 0.3
'.Contrast = 0.75
'End With
nbimages = myDocument.Shapes.Count
For i = 1 To nbimages
'MsgBox myDocument.Shapes(i).Name
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
'With myDocument.Shapes(1)
'.Brightness = 0.3
'.Contrast = 0.75
' .Visible = False
'End With
End Sub