Excel 2003 suppression de ligne automatique

Sub effacer_ligne_si()
Dim condition
Dim col As Byte
Dim der_lig As Long, lig As Long

condition = "DATE" ' texte partiel dans cellule déclenchant effacement ligne
col = 1 'colonne de recherche
der_lig = Cells(65536, col).End(xlUp).Row
lig = 65536

Application.ScreenUpdating = False
Do Until lig = der_lig + 1
    On Error Resume Next
        lig = Columns(col).Find(condition, Cells(lig, col), , xlPart).Row
    If Err.Number > 0 Then
        Application.ScreenUpdating = True
        MsgBox "lignes effacées"
        Exit Sub
    End If
    Rows(lig).Delete
Loop

End Sub