Private Sub TextBox19_Change()
Dim i As Long, x As Long, p As Long
Dim Tbl
Set Tbl = Nothing
With Me
.ListBox1.Clear
If .TextBox19 = Empty Then Exit Sub
If Not Range("t_BDD").ListObject.DataBodyRange Is Nothing Then
With Range("t_BDD").ListObject.DataBodyRange
Set rng1 = Range("t_BDD").ListObject.ListColumns("Prix (euros)").Range
Application.ScreenUpdating = False
With Range("t_BDD").ListObject.Sort
.SortFields.Clear
.SortFields.Add Key:=rng1, Order:=xlAscending
.Header = xlYes
.Apply
End With
Application.ScreenUpdating = True
Tbl = .Value
For i = 1 To UBound(Tbl, 1)
If UCase(Tbl(i, 1)) Like UCase("*" & Me.TextBox19 & "*") Then
With Me.ListBox1
.AddItem Tbl(i, 1)
.List(ListBox1.ListCount - 1, 1) = Tbl(i, 3)
.List(ListBox1.ListCount - 1, 2) = Tbl(i, 4)
.List(ListBox1.ListCount - 1, 3) = Tbl(i, 6)
.List(ListBox1.ListCount - 1, 4) = Tbl(i, 7)
.List(ListBox1.ListCount - 1, 5) = Tbl(i, 8)
.List(ListBox1.ListCount - 1, 6) = Tbl(i, 9)
.List(ListBox1.ListCount - 1, 7) = Tbl(i, 10)
End With
End If
Next i
End With
End If
End With
End Sub