VBA : Excel Comparaison de date

Bonjour,

Voilà mon problème:
J'ai 2 colonnes A et B. Dans A on retrouve des dates du style '28-mars-01', dans B on retrouve une chaîne de caractères du style '005 ROUT01'.
Je veux parcourir l'ensemble de ma colonne B, trouver 2 occurences identiques, si j'en trouve 2 identiques, je compare les dates, et je voudrais garder seulement l'occurence qui a la date la plus récente et effacer la ligne ou la date est la plus ancienne. En plus de ça j'aimerai rajouter un test sur la date, il faut qu'elle soit inférieur au '31/12/07'

Voilà mon code:

For i = 2 To 1264
        For j = 3 To 1264
            If Cells("B" & i).Value = Range("B" & j) Then
                If Range("A" & i) > Range("A" & j) Then
                    If Range("A" & i) < CDate(31 - déc - 7) Then
                        Rows("j:j").Select
                        Selection.Cut
                        Rows("i:i").Select
                        ActiveSheet.Paste
                        Rows("j:j").Select
                        Selection.Delete Shift:=xlUp
                    Else
                        'on verra
                    End If
                End If
                If Range("A" & i) > Range("A" & j) Then
                    If Range("A" & j) < CDate(31 - déc - 7) Then
                        Rows("i:i").Select
                        Selection.Cut
                        Rows("j:j").Select
                        ActiveSheet.Paste
                        Rows("i:i").Select
                        Selection.Delete Shift:=xlUp
                    Else
                        'on verra
                    End If
                End If
                If Range("A" & i) = Range("A" & j) Then
                    Rows("i:i").Select
                    Selection.Cut
                    Rows("j:j").Select
                    ActiveSheet.Paste
                    Rows("i:i").Select
                    Selection.Delete Shift:=xlUp
                End If
            End If
        Next j
Next i

Quand je lance ma macro, ça mouline mais rien ne se passe....HELP