Pb ds ma macro qui supprime certaines lignes

Bonjour,

Alors j'ai une base de donnée sur excel qui contient les champs suivant : code interne, code société, libellé, type, code cip, code ean.
J'ai remarqué qu'il y avait des codes ean répétés plusieurs fois mais pas avec le même libellé. Le libellé important peu, je veux qu'un code ean donné ne soit présent qu'une seule fois dans la base de donnée.
J'ai donc fais la macro suivante, mais elle me supprime des lignes qui n'auraient pas dû être supprimées.
Pouvez vous m'aider à trouver l'erreur ?? Je vous remercie d'avance.

Public Sub DOUBLE()

Dim i, j As byte

For j = 1 To 10
For i = 10 To 1 Step -1
If ActiveWorkbook.ActiveSheet.Cells(j, 6) = ActiveWorkbook.ActiveSheet.Cells(i, 6) Then
ActiveWorkbook.ActiveSheet.Cells(i, 6).EntireRow.delete

End If

Next i
Next j

End Sub