Remove entire row with criteria

Hi Experts,

I'm trying to code a simple function to delete an entire and do a shift up to replace the deleted row.
when the value of a cell in column A contains "A" or "OQ" or "la" or "lq"
I've coded this, but isn't working properly.

Is there a solution to this?

Thank you

Sub DeleteRow()

Dim SrchRng As Range, cel As Range
Application.ScreenUpdating = False
Set SrchRng = Range("A:A")

For Each cel In SrchRng
    If Not InStr(1, cel.Value, "A") > 0 Then
        Worksheets("Feuille1").Rows(cel.Row).Delete Shift:=xlShiftUp
    End If
Next cel
End Sub

Select allOpen in new window