Dim Tablo As Variant ' Déclare la variable Tablo
Sub test1()
Dim i As Integer
Dim DerLig As Long
'Définit la variable Tablo => Emplacement des Données source pour l'incrémentation de la ListBox
With Sheets("données vincent")
DerLig = .Range("A65536").End(xlUp).Row
Tablo = .Range("A2:I" & DerLig)
End With
ListBox1.Clear
For i = 1 To UBound(Tablo)
'Si la colonne 9 de la variable Tableau est égale à la valeur choisie alors
If CStr(Tablo(i, 9)) = ListBox3.Value Then
'Alors on ajoute les données correspondantes aux 6 colonnes de la ListBox
ListBox1.AddItem Tablo(i, 1) 'Colonne 1 de la ListBox = Colonne 1 du tableau de réf
ListBox1.List(ListBox1.ListCount - 1, 1) = Tablo(i, 2) 'Colonne 2 de la ListBox = Colonne 2 du tableau de réf,...
ListBox1.List(ListBox1.ListCount - 1, 2) = Tablo(i, 3)
ListBox1.List(ListBox1.ListCount - 1, 3) = Tablo(i, 5)
ListBox1.List(ListBox1.ListCount - 1, 4) = Tablo(i, 6)
ListBox1.List(ListBox1.ListCount - 1, 5) = Tablo(i, 7)
End If
Next i
End Sub