Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B:B,E:E,I1]) Is Nothing Then Exit Sub
[B:B].Interior.ColorIndex = xlNone 'RAZ
If [I1] = "" Then Exit Sub
Dim P As Range, x$, c1 As Range, y, c2 As Range
Set P = Range("B1", Range("B" & Rows.Count).End(xlUp))
x = "*" & [I1] & "*" & [I1] & "*"
Application.ScreenUpdating = False
For Each c1 In P
If Cells(c1.Row, 5) Like x Then
y = c1
For Each c2 In P
If c2 = y Then c2.Interior.ColorIndex = 6 'jaune
Next
End If
Next
End Sub