Macro Excel

Sub suppr()
Dim Sh As Worksheet
Application.DisplayAlerts = False
For Each Sh In Sheets
    If Val(Right(Sh.Name, 4)) = Year(Date) Then
            ' ou Year(Date) - 1, pour l'année précédente
        If Sheets.Count > 1 Then Sh.Delete
    End If
Next Sh
End Sub