Private Sub Combobox1_Change() 'au changement dans la ComboBox1
Dim I As Integer 'déclare la variable I (Incrément)
Dim J As Byte 'déclare la variable J (incrément)
With Me.ListBox1 'prend en compte la ListBox1
.Clear 'efface le contenu
For I = 1 To UBound(TC, 1) 'boucle 1 : sur toutes les lignes du tableau TC (en partant de la 1ère ligne)
If TC(I, 1) = Me.ComboBox1.Value Then 'condition : si la valeur ligne I colonne 1 de TC est égale à la valeur de la ComboBox1
.AddItem I 'ajoute le numéro de ligne dans la colonne 0 cachée
For J = 1 To 11 'boucle 2 : sur les 9 autres colonnes de la ListBox
.Column(J, .ListCount - 1) = TC(I, J) 'ajoute les données du tableau
Next J 'prochaine colonne de la boucle 2
End If 'fin de la conditon
etc.....