Option Explicit
Sub enregistrer_classeur_bis(NomFichier As String)
Dim VbP As Object, VbC As Object, v As Object
'enregistre une copie identique selon le paramètre de la procédure CommandButton5_Click()
ThisWorkbook.SaveCopyAs NomFichier
'ouvrir la copie
Workbooks.Open (NomFichier)
'déclaration d'objets
Set VbP = ActiveWorkbook.VBProject
Set VbC = VbP.VBComponents
'boucler sur tous les components
For Each v In VbC
'selon le nom du component
Select Case v.Name
Case "ThisWorkbook"
'suppression des lignes du modules
v.CodeModule.DeleteLines 1, v.CodeModule.CountOfLines
Case "Module11", "Frmprogression", "Frmaccueil", "Frmapropos", "Frmentreprise", "Frmpermanant"
'suppression du module
VbC.Remove v
End Select
Next v
'sauver et fermer la copie
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub