Bonjour,

Je souhaiterais supprimer toutes les Shapes d'un classeur
cela fonctionne avec la commande :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
        For Each Shape In ActiveSheet.Shapes
            Shape.Delete
        Next Shape
jusqu'à ce que cela soit le tour des Comboboxes, j'obtiens une erreur car je leur ai attribué des Sub ComboBox0?_Change() (? remplace un nombre car il y en a plusieurs)

Quelqu'un a-t-il une solution ?