Je voudrais mettre en évidence les différences entre deux plages nommées mer et soleil en les coloriant en rouge. Les cellules de ces plages contiennent des formules et je veux comparer
les résultats.

sub colorier()
 For Each cel In Range("mer")
 Set absent = Range("soleilr").Find(cel, LookIn:=xlValues)
 'Set absent = Range("soleil").Find(cel, LookIn:=xlValues, LookAt:=xlWhole) pour rechercher
 le mot exact
  If absent Is Nothing Then
   cel.Interior.ColorIndex = 3
  End If
 Next
 end sub

Beaucoup plus rapide :
Une alternative au "find" = un coup d'Evaluate :

sub cherch_et_color()
 For Each cel In Range("web")
 If Evaluate("ISERROR(MATCH(" & cel & ",moteur,0))") = True
 Then
  cel.Interior.ColorIndex = 3
  Else: cel.Interior.ColorIndex = xlNone
 End If
 Next
 end sub