Sub surbrillance()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim c As Range
Dim d As Range
Dim drligne1 As Long
Dim drligne2 As Long
Dim plage1 As Range
Dim plage2 As Range
Set sh1 = Worksheets("Tableau")
Set sh2 = Worksheets("Liste")
drligne1 = sh1.Range("E100000").End(xlUp).Row
drligne2 = sh2.Range("A100000").End(xlUp).Row
Set plage1 = sh1.Range("E1:E" & drligne1)
Set plage2 = sh2.Range("A1:A" & drligne2)
For Each d In plage2
For Each c In plage1
If c Like d Then Rows(c.Row & ":" & c.Row).Interior.Color = 65535
Next c
Next d
End Sub