Renomage onglet par année

bonjour Laydie

voici un exemple de macro qui fais ce que tu souhaites

Ma boule de cristal ayant une defaillance je n'ais pas pu l'adapter aux noms des onglets de ton agenda

For n = 1 To Sheets.Count
Sheets(n).Name = Left(Sheets(n).Name, Len(Sheets(n).Name) - 4) & ' 2006'
Next

Merci pierrejean

C'est exactement ça.

laydie