Sub Colorer()
Dim DL%, L%, Lc%, TypeCouleur
Application.ScreenUpdating = False
DL = [J65000].End(xlUp).Row
For L = 5 To DL
TypeCouleur = Cells(L, "J")
If IsError(Cells(L, "J")) Then
Cells(L, "I").Interior.Color = xlNone
ElseIf Application.CountIf([O1:O100], TypeCouleur & "*") = 0 Then ' car type non trouvé
Cells(L, "I").Interior.Color = xlNone
Else
Lc = Application.Match(TypeCouleur & "*", [O1:O100], 0)
Cells(L, "I").Interior.Color = Cells(Lc, "P").Interior.Color
End If
Next L
End Sub