Sub Coloriage()
Dim vArr, vColor, X, i&
vColor = Array(3506772, 13395711, 36799, 7884319, 11573124, 14998742, 10092543, 11389944, 65535, 8696052, 39372, 1137094, 10092543, 14083324)
vArr = Array("I", "T", "TX", "CEM", "C", "EALE", "111", "118", "122", "129", "162", "169", "141", "149")
With Application
.ScreenUpdating = False
On Error Resume Next
For i = 6 To Cells(Rows.Count, 1).End(xlUp).Row
X = .Index(vColor, .Match(Cells(i, 1).Text, vArr, 0))
If Not IsError(X) Then
Cells(i, 1).Interior.Color = CLng(X)
Cells(i, 1).Font.Bold = -1
End If
Next
End With
End Sub