Supprimer les données d'une colonne qui apparaissent dans une autre colonne

Option Explicit
Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
Dim obj As Object
    Set FL1 = Worksheets("Feuil1") 'a adapter
    NoCol = 1 'lecture de la colonne A
    Application.ScreenUpdating = False
    For NoLig = 1 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol)
  Set obj = FL1.Columns("B").Find(FL1.Cells(NoLig, NoCol), , , xlWhole)
If Not obj Is Nothing Then
  FL1.Cells(NoLig, NoCol) = ""
FL1.Cells(NoLig, NoCol).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End If
     Next
    Set FL1 = Nothing
     Application.ScreenUpdating = True
End Sub