Suppression de lignes contenant du texte

Sub delRow()
Dim i As Integer
With ThisWorkbook.Sheets("Import Führ.PAX")
    For i = .Cells(.Rows.Count, 1).End(xlUp).Row To 1 Step -1
        If .Cells(i, 1).Value <> vbNullString And Not IsDate(.Cells(i, 1)) Then .Rows(i).Delete
    Next i
End With
End Sub

Sub test()
For n = Range("A65536").End(xlUp).Row To 1 Step -1
 If Range("A" & n) <> "" And Not IsDate(Range("A" & n)) Then
   Rows(n).Delete
 End If
Next n
End Sub

Sub SupprimeTitres()
Dim vide As Range
Set vide = Range("A:A").SpecialCells(xlBlanks)
For i = 5 To 1 Step -1
vide.Offset(i).EntireRow.Delete
Next
End Sub

Sub SupprimeTitres()
Range("A:A").SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete
End Sub