Sub Enregistrement()
Dim chemin As String, nom As String
chemin = "C:\Users\Asus\Desktop\Sauvegarde CR\"
nom = "Compte rendu du " & Format(Date, "dd mmmm yyyy") & "_" & Format(Time, "hh" & "'" & "mm" & "'" & "ss")
If MsgBox("Voulez vous Enregistrer ?", vbYesNo, "Nom du fichier : " & nom) = vbYes Then
ActiveWorkbook.SaveAs Filename:=chemin & nom & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.Close True
End If
End Sub