salut à tous je suis à la recherche d'une fonctino ou d'une macro sur excel 2003 pour supprimer des lignes doublons sur colonne a feuille 1 et 2

en gros je cherche à faire :

si une ligne de la colonne "a" (feuille 1) = à une ligne de la colonne "a" (feuille 2) alors supprimer la ligne feuille 1

merci
on m'a proposé ça, mais ça plante sur la zone rouge :

Dim i As Integer, j As Integer, DLV1 As Integer, DLV2 As Integer

DLV2 = Sheets(2).Range("A1").End(xlUp).Row
DLV1 = Sheets(1).Range("A1").End(xlUp).Row

For j = 1 To DLV2
If Sheets(1).Range("A" & i).Value = Sheets(2).Range("A" & j).Value Then _
Sheets(1).Range("A" & i).Delete Shift:=xlUp
Next j

Next i