Sub Sauve()
Dim chemin$, fichier$
chemin = ThisWorkbook.Path & "\Sauvegarde\"
If Dir(chemin, vbDirectory) = "" Then MkDir chemin
With Sheets("BASE")
fichier = Month(.[A1]) & "_" & "Analyse-FA " & .[A2] & Format(.Range("A1"), " mmmm yyyy")
End With
Application.DisplayAlerts = False
ThisWorkbook.SaveAs chemin & fichier, 51
End Sub