Private Sub ComboBox1_Change()
Dim i&
ListBox1.Clear
'Ligne d'en-tête
ListBox1.AddItem "Usine"
ListBox1.Column(1, 0) = "Ville"
ListBox1.Column(2, 0) = "Transporteur"
ListBox1.Column(3, 0) = "Prix"
'Insertion des données
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
If Cells(i, 3) Like ComboBox1 Then
ListBox1.AddItem Cells(i, 1)
ListBox1.Column(1, ListBox1.ListCount - 1) = Cells(i, 3)
ListBox1.Column(2, ListBox1.ListCount - 1) = Cells(i, 5)
ListBox1.Column(3, ListBox1.ListCount - 1) = Cells(i, 10)
End If
Next i
End Sub