Sub Sauvegarde()
Dim chemin, nom As String
chemin = "C:\" 'dossier à changer selon le souhait
nom = "facture_" & Sheets("Facture").Cells(5, 4)
ActiveWorkbook.SaveAs Filename:=chemin & nom & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Sheets("Facture").Cells(5, 4) = Sheets("Facture").Cells(5, 4) + 1
End Sub