comparaison de colonnes

=SI(NB.SI([COLOR="Blue"]ListeFeuille2[/COLOR];A1)>0;VRAI;FAUX)

=SI(NB.SI([COLOR="Red"]ListeFeuille1[/COLOR];A1)>0;VRAI;FAUX)

Sub Macro1()
Dim cel As Range 'déclare la variable cel (CELlule)
Dim pl1 As Range 'déclare la variable pl1 (PLage 1)
Dim pl2 As Range 'déclare la variable pl2 (PLage 2)
Dim r As Range 'déclare la variable r (Recherche)
Dim pa As String 'déclare la variable pa (Première Adresse)
Dim mes As String 'déclare la variable mes (MESsage)
 
Application.ScreenUpdating = False 'masque les changements à l'écran
Set pl1 = Sheets("Feuil1").Range("A1:A" & Sheets("Feuil1").Range("A65536").End(xlUp).Row) 'définit la plage pl1
Set pl2 = Sheets("Feuil2").Range("A1:A" & Sheets("Feuil2").Range("A65536").End(xlUp).Row) 'définit la plage pl2
For Each cel In pl1 'boucle 1 : sur toutes les cellules éditées cel de la plage pl1
    Set r = pl2.Find(cel.Value) 'définit la variable r (recherche des occurrences de cel dans la plage pl2)
    If r Is Nothing Then 'condition : si aucune occurrence de cel n'est trouvée dans la plage pl2
        mes = mes & cel.Value & " n'est pas dans l'onglet Feuil2" & Chr(13) 'définit la message
    Else 'sinon
        pa = r.Address 'définit la variable pa
        Do 'éxécute
            r.Interior.ColorIndex = 3 'colore la cellule de l'occurrence trouvée
            Set r = pl2.FindNext(r) 'redéfinit la variable r (Recherche occurrence suivante)
        Loop While Not r Is Nothing And r.Address <> pa 'boucle tant qu'il existe d'autres occurrences ailleurs qu'en pa
    End If 'fin de la condition
Next cel 'prochaine cellule cel de la plage p1
mes = mes & Chr(13) 'redéfinit le mnessage (saut de ligne)
 
For Each cel In pl2 'boucle 2 : sur toutes les cellules cel de la plage p2
    If cel.Interior.ColorIndex <> 3 Then 'condition : si la cellule n'est pas colorée
        mes = mes & cel.Value & " n'est pas dans l'onglet Feuil1" & Chr(13) 'redéfinit le message
    End If 'fin de la condition
Next cel 'prochaine cellule cel de la plage pl2
pl2.Interior.ColorIndex = 0 'enlève la couleur éventuelle de la plage pl2
Application.ScreenUpdating = True 'afiche les changements à l'écran
MsgBox mes 'affiche le message
  
End Sub