Private Sub ComboBox1_click()
ColRecherche = 1
clé = Me.ComboBox1: n = 0
Dim Tbl()
For I = 1 To UBound(TblBD)
If TblBD(I, ColRecherche) Like cl? Then
n = n + 1: ReDim Preserve Tbl(1 To UBound(TblBD, 2), 1 To n)
For k = 1 To UBound(TblBD, 2): Tbl(k, n) = TblBD(I, k): Next k
tx = tx + Tbl(3, n)
End If
Next I
TextBox1 = tx
If n > 0 Then Me.ListBox1.Column = Tbl Else Me.ListBox1.Clear
End Sub