Sub test()
Dim chemin As String, fichier As String
chemin = ThisWorkbook.Path
'Définit un nom par défaut "fichier travaux"
fichier = chemin & "\" & "fichier travaux" & ".xls"
'Enregistrer le classeur
ActiveWorkbook.Save
'Message avant l'enregistrement
Select Case MsgBox("ATTENTION !" & vbLf & "Voulez-vous continuer ?", vbYesNo, "Attention !")
Case vbYes
ActiveWorkbook.SaveCopyAs fichier
'Ensuite lancement de la macro
'Si clique sur annulé arrêter la macro
Case vbNo
Exit Sub
End Select
End Sub