Option Explicit
Sub suppression()
Dim n As Name
For Each n In ActiveWorkbook.Names
If Not n.Name Like "*Print_Area" Then n.Delete
Next
Sheets("Feuil1").Shapes("Bouton 1").Delete ' bouton supprimer
Call Modules_1_et_test_supprimer ' macros supprimer
End Sub
Sub Modules_1_et_test_supprimer()
'Adaptation d'un code de MichelXld (merci !)
With ActiveWorkbook.VBProject.VBComponents
.Remove .Item("Module1")
.Remove .Item("test")
End With
End Sub