[VB Excel] Suppression de ligne sur critère

Public Sub KillLigne(Valeur As String, Colonne As Integer, FirstLine As Long, LastLine As Long)
     ' Valeur      : valeur à comparer au contenu de la cellule
     ' Colonne    : colonne où se trouve la valeur à vérifier
     ' FirstLine  : première ligne à vérifier
     ' LastLine   : dernière ligne à vérifier
   
     Dim lngL As Long
     
     Application.ScreenUpdate = False
     Application.DisplayAlerts = False
     For lngL = LastLine To FirstLine Step -1
          If Cells(lngL, Colonne).Value <> Valeur Then
               Rows(lngL).Delete Shift:=xlShiftUp
          End If
     Next lngL
     Application.DisplayAlerts = True
     Application.ScreenUpdate = True
End Sub