comparer les données dans 2 plages

Salut,

j'essaye de faire une macro qui colore en jaune les cellules d'une plage
dont la valeur n'est pas trouvée dans les cellules d'une seconde plage.

J'ai une ou des erreurs mais aprés plusieurs heures de recherche je ne
trouve pas ce qui "bugge".. si vous pouviez m'aider, je vous en remercie
infiniment..

Voilà la macro :

Sub compare()

Dim cellulesTri, cellule As Range

cellulesTri = Worksheets("Trié").Range("B:B").Select

For Each cellule In cellulesTri.Cells

With Worksheets("Access").Range("B2:B500")
Set c = .Find(cellule.Value, LookIn:=xlValues)
If c Is Nothing Then
firstAddress = c.Address
Do
With cellule.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

Next cellule

End Sub