Ne pas supprimer lignes si non vides et couleur

and Not IsNumeric(Cells(i, 2))

Sub test()
Dim i As Integer
Application.ScreenUpdating = False
For i = 8000 To 2 Step -1
    If IsEmpty(Cells(i, 2).Value) And Not IsNumeric(Cells(i, 2)) And IsEmpty(Cells(i, 3).Value) And Not IsNumeric(Cells(i, 3)) And IsEmpty(Cells(i, 4).Value) And Not IsNumeric(Cells(i, 4)) Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub

Option Explicit
Sub test()
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 1 Step -1
    If Cells(i, 2).Resize(1, 3).Interior.ColorIndex = -4142 And _
            Application.CountA(Cells(i, 2).Resize(1, 3)) = 0 Then
        Rows(i).Delete
    End If
Next i
End Sub