bonsoir
tu peux tester cette procedure
Private Sub CommandButton1_Click()
'
'necessite d'activer la référence
'"Microsoft Visual Basic for Applications Extensibility 5.3 "
Dim VbComp As VBComponent
'copie de la feuille cible dans un nouveau classeur
Sheets("feuilleFormulaire").Copy
'sauvegarde du nouveau classeur
ActiveWorkbook.SaveAs Filename:="C:\laSauvegarde.xls"
'supprime toutes les procedures du nouveau classeur
For Each VbComp In ActiveWorkbook.VBProject.VBComponents
Select Case VbComp.Type
Case 1 To 3
Wb.VBProject.VBComponents.Remove VbComp
Case Else
With VbComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next VbComp
ActiveWorkbook.Save
ActiveWorkbook.Close 'fermeture du nouvau classeur
End Sub
bonne soiree
michel