=SI(NB.SI($A$2:$A$18;$U2)=0;"";RECHERCHEV($U2;$A$2:$C$18;2;0))
=SI(NB.SI($A$2:$A$18;$U2)=0;"";RECHERCHEV($U2;$A$2:$C$18;3;0))
Sub essai()
For Each c In Range("U2:U1000,X2:X1000")
Set k = [A2:A1000].Find(c, LookAt:=xlWhole)
If Not k Is Nothing Then c.Resize(, 3).Interior.ColorIndex = k.Interior.ColorIndex
Next c
End Sub