Tu as ci-dessous une ligne de macro qu'il te suffit d'adapter.
Entre le chemin et l'extension, la fonction YEAR extrait l'année de la date.
Le & précédé et suivi d'un espace fait la concaténation des chaines de caractères
ActiveWorkbook.SaveAs Filename:="C:\test\excel\Essais" & Year(Date) & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False