Sub NouvelleAnnee()
If Not [A1] Like "####" Or [I1] = "" Then Exit Sub
Dim nf$
nf = [I1] & " " & [A1] + 1
On Error Resume Next 'si la feuille à créer n'existe pas
If IsError(Sheets(nf)) Then
ActiveSheet.Copy After:=ActiveSheet
With ActiveSheet
.Name = nf
.[A1] = Right(nf, 4)
.[B4:D21,G4:I21] = ""
End With
End If
End Sub