Mon code qui plante :
Sub Code_à_supprimer_qq_soit_le_nom_des_procédures()
Dim Debut As Integer, Lignes As Integer, NomSub As Integer
With ThisWorkbook.VBProject.vbComponents("Module4").CodeModule
For Each NomSub In .vbComponents ‘ pour balayer toutes les sub(), quelque soit le nom
Debut = .ProcStartLine("NomSub", 0)
Lignes = .ProcCountLines("NomSub", 0)
.DeleteLines Debut, Lignes
Next NomSub
End With
End Sub