Private Sub ComboBox1_Change()
If ComboBox1.Text = "" Then Exit Sub
Set liste = CreateObject("scripting.dictionary")
Set trouve = Sheets("Feuil1").Range("A1:A" & Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row).Find(ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
Dim décal%
If trouve Is Nothing Then
MsgBox "Code " & ComboBox1.Value & " non-trouvé"
Else
Sheets("Feuil2").UsedRange.Interior.ColorIndex = xlNone
décal = décal + 1
liste(trouve.Value) = ""
While trouve.Offset(, décal).Value <> ""
liste(trouve.Offset(, décal).Value) = ""
décal = décal + 1
Wend
End If
For Each c In Sheets("feuil2").UsedRange.SpecialCells(xlCellTypeConstants)
For Each k In liste.keys
If InStr(1, c.Value, k, 1) Then c.Interior.Color = RGB(255, 255, 0): Exit For
Next k
Next c
Set liste = Nothing
End Sub