supprimer ligne selon date

Sub test()
Dim i As Integer
For i = Range("B65536").End(xlUp).Row To 2 Step -1
    If Cells(i, 2).Value > #1/2/2009# Then Rows(i).Delete
Next i
End Sub

    If Cells(i, 2).Value > #12/31/2008# And Cells(i, 2).Value < #1/1/2010# Then _
        Rows(i).Delete

If Cells(i, 2) > [B]Range("D1")[/B] And Cells(i, 2) < [B]Range("E1")[/B] Then Rows(i).Delete

Sub supprdates()
cda = CLng(DateSerial(2009, 2, 1))
    With Range(Range("B1"), Range("B65536").End(xlUp))
        .AutoFilter 1, ">=" & cda, xlAnd, "<=" & cda
    End With
Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase"). _
Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
ActiveSheet.AutoFilterMode = False
End Sub

For i = Range("B65536").End(xlUp).Row To 2 Step -1
    If Cells(i, 2).Value < #2/1/2009# Or Cells(i, 2).Value > #3/1/2009# Then _
        Rows(i).Delete
Next i

Sub supprimedatesentrebornes()
datd = CLng(DateSerial(2009, 2, 1))
datf = CLng(DateSerial(2009, 2, 28))
    With Range(Range("B1"), Range("B65536").End(xlUp))
        .AutoFilter 1, "<" & datd, xlOr, ">" & datf
    End With
Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase"). _
Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
ActiveSheet.AutoFilterMode = False
End Sub

> #2/28/2009#