1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 :
LoopThroughAllShapes secondaire () Faibles myShapes comme forme Pour le chaque myShapes dans ActiveSheet.Shapes Debug.Print myShapes.Name myShapes.Visible = msoFalse 'ont placé au msoTrue à l'unhide Après Sous-marin d'extrémité