Sub test()
Dim i&
For i = Range("A65536").End(xlUp).Row To 2 Step -1
If LCase(Cells(i, 4).Value) = "x" Then Rows(i).Delete
Next i
End Sub
Option Explicit
Option Compare Text
Sub Terminator_X()
Dim L As Long, i As Long
Dim Counter As Long
Application.ScreenUpdating = False
With Sheets("Feuil1")
L = .Range("A65535").End(xlUp).Row
For i = L To 2 Step -1
If .Cells(i, 4) = "x" Then
.Rows(i).EntireRow.Delete
Counter = Counter + 1
End If
Next
End With
Application.ScreenUpdating = True
MsgBox Counter & " Rows have been deleted"
End Sub