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
End If
Next I
If n > 0 Then
Me.ListBox1.Column = Tbl
Me.TextBox1 = Application.Sum(Application.Index(Me.ListBox1.List, , 5))
Me.TextBox2 = Application.Sum(Application.Index(Me.ListBox1.List, , 6))
Else
Me.ListBox1.Clear
End If
End Sub