Nouvelle feuille

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

Sub NouvelleFeuille()
   Dim Année As Long
   Année = ActiveSheet.Name + 1
   ActiveSheet.Copy Before:=ActiveSheet
   ActiveSheet.[A1].Value = Année
   ActiveSheet.Name = CStr(Année)
   ActiveSheet.[B4:B9].ClearContents
   ActiveSheet.[C4:D9].Value = "A traiter"
   ActiveSheet.[G4:I9].Value = ActiveSheet.[B4:D9].Value
   End Sub