Sub NouvelleAnnee() 'se lance par Ctrl+A
Dim w As Worksheet, an$, txt$
For Each w In Worksheets
If w.Name Like "####" Then an = Year(w.[A4]): Exit For
Next
1 txt = InputBox("Entrez la nouvelle année :", "Nouvelle année", an + 1)
If txt = "" Then Exit Sub
If Not txt Like "20##" Then GoTo 1
Application.ScreenUpdating = False
Application.EnableEvents = False
For Each w In Worksheets
If w.Name Like "####" Or w.Name Like "Synthèse*" Then
w.Unprotect "OKZEF"
w.[A4].Replace an, txt, xlPart
w.[7:65536].Delete
w.[A6].Resize(, IIf(IsEmpty(w.[AB6]), 12, 28)).Borders(xlEdgeBottom).LineStyle = xlDouble
w.[6:6].ClearContents
w.Protect "OKZEF"
End If
Next
Application.EnableEvents = True
End Sub