'--Sauvegarde Feuil Active, dans Dossier Archives Echéancier
Sub Sauv_Feuil()
'--Définition des variables
Dim Chemin As String, Nom As String
Chemin = ThisWorkbook.Path & "\Archives Echéancier\"
Nom = Format(ActiveSheet.Range("A2"), "YYYY")
ActiveSheet.Copy '<<<< ou Sheets("LaFeuille").Copy
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Cells.Validation.Delete
With ActiveWorkbook
.SaveAs Chemin & Nom '"CopieFeuille.xls"
.Close ' supprimer si on veut garder le classeur ouvert
End With
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub