Coloration des mots selon appartenance aux listes

=SOMMEPROD((ESTNUM(CHERCHE(F2;$A$1:$B$30)))*1)

Sub colore()
Set leg = Range("F2:F" & Range("F65536").End(xlUp).Row)
Set vian = Range("I2:I" & Range("I65536").End(xlUp).Row)
Set fec = Range("L2:L" & Range("L65536").End(xlUp).Row)
Set div = Range("O2:O" & Range("O65536").End(xlUp).Row)
Set tout = Application.Union(leg, vian, fec, div)
For Each cel In Range("A1:B" & Range("A65536").End(xlUp).Row)
  For Each c In tout
    X = InStr(cel, c)
    If X <> 0 Then
       cel.Characters(Start:=X, Length:=Len(c)).Font.Color = c.Font.Color
    End If
  Next c
Next cel
End Sub