If c(1, 2) <> c(2, 2) Then 'compare avec le nom de fichier au-dessous
For Each nom In ActiveWorkbook.Names
If IsNumeric(Application.Match(nom.Name, Array("ANNEE", "ETAB", "IC", "INT"), 0)) Then nom.Delete
Next nom
Sheets(1).Select '1ère feuille
ActiveWorkbook.SaveAs chemin & c(1, 2), 51 'enregistre avec l'extension .xlsx
ActiveWorkbook.Close False 'ferme le document
End If