Bonjour Toze666, gmb, le forum,
@gmb, merci pour l'exemple. Par contre, il y a une petite coquille, le Listbox ne se vide pas à chaque changement du Combobox.
Private Sub ComboBox1_Change()
cln = IIf(opt = 1, 13, 14)
ListBox1.Clear ''' << ligne à ajouter pour vider le Listbox au changement du Combobox
For i = 2 To UBound(tablo, 1)
If tablo(i, cln) = ComboBox1 Then
ListBox1.AddItem
For j = 0 To UBound(col)
ListBox1.Column(j, ListBox1.ListCount - 1) = tablo(i, col(j))
Next j
End If
Next i
End Sub
bastr