Bonjour le forum
Bonjour Nico
Voici le code à mettre sous ton bouton
ActiveSheet.Copy
Application.Dialogs(xlDialogSaveAs).Show
'ferme le nouveau ainsi créer
ActiveWorkbook.Close
'Il te reste juste à poursuivre en faisant l'identification de tes ranges à vider de ton model:
Range('A1')=''
Range('B4')=''
Range('C8')=''
Range('F6')=''
A++
Temjeh