Private Sub ListBox2_Change()
Dim Lg As Long
ListBox3.Clear
ListBox4.Clear
With Sheets("TRAVAUX")
Lg = .Range("B:B").Find(ListBox2.Value, LookIn:=xlValues).Row + 1
While .Cells(Lg, 2).Interior.ColorIndex < 4
If Not .Cells(Lg, 2) = "" Then ListBox3.AddItem (.Cells(Lg, 2).Value)
Lg = Lg + 1
Wend
End With
End Sub