Private Sub ComboBox1_Change()
Dim cel As Range
Dim i As Integer, x As Integer
ListBox1.Clear
For i = 5 To Sheets('feuil1').Range('a500').End(xlUp).Row
If Sheets('feuil1').Range('A' & i).Value = ComboBox1.Value Then
x = IIf(i Mod 2 = 0, i - 1, i)
ListBox1.AddItem Sheets('feuil1').Range('b' & x).Value
End If
Next i
End Sub