Colorier des cellules selon choix dans listbox

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