VBA supression de ligne avec comparaison heures minutes secondes

Option Explicit
Sub test()
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 1 Step -1
    If IsEmpty(Cells(i, 1)) Or Cells(i, 1) > TimeSerial(0, 6, 0) Then Rows(i).Delete
Next i
End Sub

Sub Ligne_supprimer_si()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = Range("a" & Rows.Count).End(xlUp).Row To 1 Step -1
        If Range("a" & i).Value > #12:06:00 AM# Then Rows(i).Delete
    Next
    Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Application.ScreenUpdating = True
End Sub

    If Cells(i, 3) < Cells(i, 4) Then Rows(i).Delete