Parcourir une colonne et supprimé la ligne concerné

Bonjour,

J'aimerais supprimer les lignes qui contiennent dans la première colonne un élément de la seconde.
Par exemple le numero "67137681" se retrouve plus bas dans la colonne A et j'aimerais supprimé la ligne correspondante dans la colonne A

J'imagine qu'il faut faire une boucle for qui sélectionne chaque élement de la seconde colonne quand elle n'est pas vide et qui compare cette valeur à l'ensemble des valeurs de la premiere avec un simple IF si une valeur de la seconde est égale une valeur de la deuxième alors je supprime la ligne


j'ai essayé avec

Sub Doublon()


Type AType
NoCol As Integer, NoColl As Integer
Dim NoLig As Long, Var As Variant, Varr As Variant
Dim NoLigg As Long
End Type
   
    NoCol = 10 'lecture de la colonne J
    NoColl = 1 ' lecture de la colonene A
    For NoLig =  To Split(Worksheets("Sheet1").UsedRange.Address, "$")(4)
        Var = Worksheets("Sheet1").Cells(NoLig, NoCol)
        If ISBLANK(Var) Then
        Else
        For NoLigg = 1 To Split(Worksheets("Sheet1").UsedRange.Address, "$")(4)
        Varr = Worksheets("Sheet1").Cells(NoLigg, NoColl)
        If Varr = Var Then
        Rows("Nolgg").Delete
    
        
    Next
  

End Sub

Mais bien entendu celà ne marche pas ..

En espérant avoir réussi à vous exposer mon problème ..