Dim LaDate$, Nom$, Rep$ 'Déclaration des variables
LaDate = Format(Now, "yyyy_mm_dd_") 'formatage de la date et heure
Nom = "Facture" & Range("N21").Value 'Nom de l'onglet à enregistrer
Rep = "C:\Users\maxime\Desktop\SOCIETE\Factures\" ' Chemin du répertoire à adapter depuis votre PC
Application.DisplayAlerts = False
ActiveWorkbook.SaveCopyAs Rep & LaDate & "_" & Nom & ".xlsm"
Application.DisplayAlerts = True