J'ai utilisé le VB que vous m'aviez fourni à savoir:
Sub MasquerToutesImagesIJP900()
'Cette macro est affectée à chaque case à cocher
Sheets("IJP900 DIMENSIONS").Select
Dim Im, Adr, X#, Ymax#, i, n
Set Im = ActiveSheet.Shapes.Range(Array("Image 124088", "Image 124390", "Image...