Macro pour supprimer une ligne selon critères

Option Explicit   
Option Base 1   

Sub SupprimeLigne()   
Const NomFeuille = "Feuil1"   
Const colcritere = "F"   
Const PremLig = 1  
Dim TabMotsCles   
Dim s As String   
Dim Lig As Long, DerLig As Long, NumMot As Long, NbMots As Long   
Dim trouve As Boolean   
  ' initalisations   
  TabMotsCles = Array("LTD", "LTVA", "VIGNETTE", "PRODUCTION")   
  NbMots = UBound(TabMotsCles, 1)   
  Application.ScreenUpdating = False   
  With Sheets(NomFeuille)   
    ' dernière ligne   
    DerLig = .Range(colcritere & 65536).End(xlUp).Row   
    ' traitement de la colonne colcritere   
    For Lig = DerLig To PremLig Step -1   
      ' met en majuscule la cellule   
      s = UCase(.Range(colcritere & Lig))   
      trouve = False   
      ' recherche d'un mot cle dans s   
      For NumMot = 1 To NbMots   
        If InStr(1, s, TabMotsCles(NumMot)) > 0 Then   
          trouve = True   
          Exit For   
        End If   
      Next NumMot   
      ' si trouve mot cle supprimer la ligne lig   
      If trouve Then   
        .Range(colcritere & Lig).EntireRow.Delete   
      End If   
    Next Lig   
  End With   
  Application.ScreenUpdating = True   
End Sub   

Private Sub CommandButton1_Click()   
  Call SupprimeLigne   
End Sub