Sub Sauvegarde()
Dim bCancel As Boolean, nom$, chemin$, tmp$
'-< Remplacer la valeur de chemin
chemin = "C:\Users\Staple1600\Documents\2019\"
'par un chemin qui existe sur votre PC
tmp = "Copie_" & Format(Now, "yyyymmdd_hhmmss")
nom = InputBox("Donner le nom de votre fichier", "Choix du nom", tmp)
Do Until bCancel = True
bCancel = Application.Dialogs(xlDialogSaveAs).Show(chemin & nom & ".xlsm", 52)
If bCancel = False Then MsgBox "Sauvegarde obligatoire!", vbCritical, "Vous n'avez pas le choix...ou presque"
Loop
End Sub