XL 2016 Comparer deux listes en vba

=SI(B2="";"";SIERREUR(SI(RECHERCHEV(A2;Feuil1!$A$2:$B$7;2;FAUX)=B2;"";"X");""))

Range("C1").Select

ActiveCell.Formula = "*FORMULE*"

Selection.AutoFill Destination:=Range("C1:C" & Range("a65536").End(xlUp).Row)

Sub test()

Dim DATA As Object 'déclare la variable DATA (DATA liste variable )
Dim LISTE As Object 'déclare la variable LISTE (LISTE liste fixe)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim TC As Variant 'déclare la variable TC (Plage de cellule)
Dim I As Integer 'déclare la variable I (Incrément)
Dim RN As Range 'déclare la variable RN (Recherche Nom)
Dim RV As Range 'déclare la variable RN (Recherche Valeur)


Sheets("DATA").Select
Columns("C:C").Select
Selection.Clear


Set DATA = Sheets("DATA") 'définit l'onglet DATA
   Set LISTE = Sheets("LISTE") 'définit l'onglet LISTE
 
    DL = DATA.Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée de la colonne 1(A) de l'onglet DATA
    TC = DATA.Range("A1:A" & DL) 'définit la plage
  
  
For I = UBound(TC, 1) To 2 Step -1 'boucle inversée sur toutes les lignes de ma plage TC (de la dernière à la première)
Set RN = LISTE.Columns(1).Find(TC(I, 1), , xlValues, xlWhole) ' Sur classeur: LISTE(liste var), colonne 1, si trouve une occurence sur classeur DATA: ma plage (TC) pour chacune des lignes alors:
    If Not RN Is Nothing Then DATA.Rows(I).Cells(3).Value = "X" 'ajout d'un marqueur "X" en colonne 3 (C)
Next I
  
    Range("A1").Select
      
End Sub