Excel macro pour supprimer les lignes contenant des mots clés

Sub DeleteIfKeywords()
 Dim r As Long, lr As Long, k, i As Long
 Application.ScreenUpdating = False
 k = Array("Fiat", "Renault")
 lr = Cells(Rows.Count, 1).End(xlUp).Row
 For r = lr To 2 Step -1
   For i = LBound(k) To UBound(k)
     If InStr(UCase(Cells(r, 1)), UCase(k(i))) > 0 Then
       Rows(r).Delete
       Exit For
     End If
   Next i
 Next r
 Application.ScreenUpdating = True
End Sub

Option Explicit
Option Base 1
Sub DeleteIfKeywords()
    Dim Lr As Long, k, i As Long, Nb, Plage As Range, lig, point
    Application.ScreenUpdating = False
    
    With Worksheets("feuil1")
        k = Array("Fiat", "Renault")
        For i = LBound(k) To UBound(k)
            Lr = .Cells(Rows.Count, 1).End(xlUp).Row
            'mise en memoire plage de cellules
            Set Plage = .Range("A2:A" & Lr)
            'nombre d'iteration
            Nb = Application.CountIf(Plage, k(i))
            If Nb > 0 Then
                lig = 1
                For point = 1 To Nb
                    'recherche ligne et positionnement pour tour suivant
                    lig = .Columns(1).Find(k(i), .Cells(lig, 1), , xlWhole).Row
                    Rows(lig).Delete
                Next point
            End If
        Next i
    End With
 Application.ScreenUpdating = True
End Sub