Private Sub TextBox1_Change()
Dim Filtre, T(), i As Long
ReDim T(1 To [liste].Rows.Count)
For i = LBound(T) To UBound(T)
T(i) = [liste].Cells(i, 1).Value
Next i
Filtre = Filter(T, Me.TextBox1.Text, True, vbTextCompare)
Me.ListBox1.List = Filtre
End Sub