Sub Année()
MOIS = Array("JANVIER", "FEVRIER", "MARS", "AVRIL", "MAI", "JUIN", "JUILLET", "AOUT", "SEPTEMBRE", "OCTOBRE", "NOVEMBRE", "DECEMBRE")
For Each sh In Sheets
For n = LBound(MOIS) To UBound(MOIS)
If InStr(UCase(sh.Name), MOIS(n)) <> 0 Then
sh.Name = MOIS(n) & " " & Range("A8") + 9
End If
Next n
Next
End Sub