Sub sauvegarde()
Dim Nom_Sauve As String
Dim Chemin As String
Chemin="C:\Mes Documents\Sauvegarde\"
Nom_Sauve = Chemin & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & "-" & Format(Date, "dd.mm.yy") & ".xls"
ThisWorkbook.SaveAs (Nom_Sauve)
End Sub