Bonjour,

Dans une macro je voudrais supprimer tous les trais (Shapes) qui existent.

Je ne trouves pas la solution qui doit être du type :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
For Each ..... In ActiveSheet
    If ... Is Shapes Then Shapes.Name.Delete
Next
Merci de votre aide.