Bonjour,
je te le fait en "petit nègre" car tu n'est guère précis
For each o in liste1
NumList = o.value
With Worksheets(?).Range(liste2)
Set c = .Find(NumList, lookin:=xlValues, LookAt:= xlWhole )
End with
If Not c Is Nothing Then
o.Interior.ColorIndex = 3
Else
o.Interior.ColorIndex = 5
End if
Next