Macro : suppr des onglets fonction des résultats d'une cellule

Sub sup_feuille()
    Dim T_Feuil()
    
    Application.DisplayAlerts = False       'pas de messagebox pour suppression
    nf = Worksheets.Count       'nombre de feuille
    ReDim T_Feuil(nf + 1)           'dimension tableau nom feuille
    'boucle our recup nom de feuille
    For n = 1 To nf
        T_Feuil(n) = Worksheets(n).Name
    Next n
    On Error Resume Next        'traite erreur a la suite sup feuille
    For n = 1 To nf
        If Worksheets(T_Feuil(n)).Range("A1") = "VT" Or Worksheets(T_Feuil(n)).Range("A1") = "LP" Then
            Worksheets(T_Feuil(n)).Delete
        End If
    Next n
    Application.DisplayAlerts = True
End Sub