Feuil27.Activate
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
derligne = Range("R200").End(xlUp).Row + 1
Cells(derligne, 18).Value = ListBox1.List(i, 0)
For Each c In Feuil6.Range("A57:I57,A63:BV305")
If c.Value = Cells(derligne, 18).Value Then
c.Interior.ColorIndex = 3
[B][COLOR="Red"]End If
Next c
End If
Next i[/COLOR][/B]