Private Sub TextBoxRech_Change()
If Me.TextBoxRech <> "" Then
mots = Split(Trim(Me.TextBoxRech), " ")
Tbl = choix
For i = LBound(mots) To UBound(mots)
Tbl = Filter(Tbl, mots(i), True, vbTextCompare)
Next i
If UBound(Tbl) > -1 Then
Dim b(): ReDim b(1 To UBound(Tbl) + 1, 1 To NbCol + 1)
For i = LBound(Tbl) To UBound(Tbl)
a = Split(Tbl(i), "|")
j = a(NcolInt)
[B] For C = 1 To NbCol: b(i + 1, C) = BD(j, C): Next C[/B]
b(i + 1, C) = j
Next i
Me.ListBox1.List = b
Else
Me.ListBox1.Clear
End If
Else
UserForm_Initialize
End If
End Sub