Option Explicit
Sub DeleteAllVBA()
Dim VBComp As Variant
Dim VBComps As Variant
Dim Nom As String
Nom = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5)
Set VBComps = ActiveWorkbook.VBProject.VBComponents
For Each VBComp In VBComps
Select Case VBComp.Type
Case 1 To 3
VBComps.Remove VBComp
Case Else
With VBComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next VBComp
ActiveWorkbook.SaveAs Filename:="Copie " & Nom & ".xls"
End Sub