Suppression ligne sous condition de date

Sub SupprimeLigne()
Dim ws As Worksheet
Dim i As Long
Dim dDate As Date

    Set ws = Worksheets("Feuil1")  'La feuille qui contient les doublons
    i = 2                          'La première ligne à tester
    dDate = CDate("31/08/2008")
    
    With ws
        While .Range("A" & i).Value <> ""
            If CDate(.Range("A" & i).Value) > dDate Then
                .Rows(i).Delete
                i = i - 1
            End If
            i = i + 1
        Wend
    End With
    
    Set ws = Nothing    'Libère l'objet et la mémoire
    
End Sub