pb Extraction listbox

Option Explicit
Option Compare Text
Private Sub CommandButton1_Click()
Dim tablo As Variant
Dim tablores()
Dim i As Integer, x As Integer
Dim j As Byte

If TextBox1 = '' Then Exit Sub


tablo = Range('a1').CurrentRegion
With ListBox1
        .ColumnCount = UBound(tablo, 2)
        .Clear
End With
For i = 1 To UBound(tablo)
        If InStr(tablo(i, 3), TextBox1) > 0 Then
                x = x + 1
                ReDim Preserve tablores(1 To UBound(tablo, 2), 1 To x)
                For j = 1 To UBound(tablo, 2)
                        tablores(j, x) = tablo(i, j)
                Next j
        End If
Next i

ListBox1.Column = tablores
       
End Sub

Cliquez pour agrandir...