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)
For c = 1 To NbCol: b(i + 1, c) = BD(j, c): Next c
b(i + 1, c) = j
Next i
Me.ListBox1.List = b
'--- combobox
TblListBox = Me.ListBox1.List
Set d = CreateObject("scripting.dictionary")
For j = 1 To UBound(TblListBox)
d(TblListBox(j, 3)) = ""
Next j
Me.ComboBox1.List = d.keys
Else
Me.ListBox1.Clear
End If
Else
UserForm_Initialize
End If
End Sub