Sub Supprimer_Macro()
Dim Debut As Integer, Lignes As Integer
On Error Resume Next
With ThisWorkbook.VBProject.VBComponents("Module2").CodeModule
Debut = .ProcStartLine("Macro1", 0)
Lignes = .ProcCountLines("Macro1", 0)
.DeleteLines Debut, Lignes
End With
End Sub