Salut Phil et autres lecteurs
j'ai ça en stock (cela vient du site à Frédéric SIGONNEAU)
je ne l'ai pas tester mais si tu peux y trouver ton bonheur... @+
Sub SupprimerModules()
'papou, mpfe
Dim VBcomp As Object, TousComp As Object, CeProj As Object
Dim CetRef As Reference, WS As Worksheet
If ActiveWorkbook.Name <> ThisWorkbook.Name Then
Set CeProj = ActiveWorkbook.VBProject
Set TousComp = CeProj.VBComponents
For Each VBcomp In TousComp
With VBcomp
Select Case .Type
Case vbext_ct_StdModule, vbext_ct_ClassModule, vbext_ct_MSForm
TousComp.Remove VBcomp
Case vbext_ct_Document
.CodeModule.DeleteLines 1, .CodeModule.CountOfLines
End Select
End With
Next
End If
End Sub