Sub SupprimerModules()
'1 => Module standard
'2 => Module de Classe
'3 => UserForm
'100 => ThisWorkbook + Feuille
Dim Classeur As Workbook
Dim ColMod As Object
Dim Module As Object
'adapter le nom du classeur cible (ce dernier doit être ouvert)
Set Classeur = Workbooks("ClasseurModule.xls")
Set ColMod = Classeur.VBProject.VBComponents
For Each Module In ColMod
Select Case Module.Type
'supprime Modules standard, de classe et UserForms
Case 1, 2, 3
ColMod.Remove Module
'efface les lignes de code des modules feuilles et classeur
Case 100
With Module: .CodeModule.DeleteLines 1, .CodeModule.CountOfLines: End With
End Select
Next
End Sub