Sub Coloriage()
Dim Cel As Range, CelRef As Range
Dim Pos As Integer
Set CelRef = Sheets(2).Range("A1")
CelRef.Font.ColorIndex = xlAutomatic
For Each Cel In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
If Not IsError(Application.Match(Cel, Split(CelRef, " "), 0)) Then
Pos = InStr(1, Sheets(2).Range("A1").Value, Cel.Value, 1)
CelRef.Characters(Start:=Pos, Length:=Len(Cel.Value)).Font.ColorIndex = 3
End If
Next Cel
End Sub