Dim t As String, x As Range
t = "essai"
With Selection
For rwIndex = 1 To 13
For colIndex = 1 To 6
With Selection.Cells(rwIndex, colIndex)
If .Value = "RA" Then .Font.ColorIndex = 2
If .Interior.ColorIndex = 3 Then .Font.ColorIndex = 2 'Blanc/fond rouge
Set x = .Find(t, , xlValues, xlPart, , , False)
If Not x Is Nothing Then
Do
x.Characters(InStr(x, t), Len(t)).Font.ColorIndex = 3
Set x = .FindNext
Loop While Not x Is Nothing
End If
End With
Next colIndex
Next rwIndex
End With