Suppression de la macro à l'issue de son exécution

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