Sub Classeursarchivés()
nom = ThisWorkbook.Path & "\" & ActiveWorkbook.ActiveSheet.Cells(4, 2) & Format(Date, "_dd-mm-yyyy") & Format(Time, "_hhmm") & ".xlsm"
'Cells(1, 1) = nom
ActiveWorkbook.SaveCopyAs nom
rep = MsgBox("Votre base de données est sauvegardée sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde fichier")
End Sub