Public Sub InTextbox()
Dim u() As Variant
Dim vrtValue As Variant
textbox1.Text = 'Thomas mange une pomme'
u() = Sheets(1).Range(Cells(1, 1), Cells(Cells(65536, 1).End(xlUp).Row, 1)).Value
For Each vrtValue In u()
If InStr(1, textbox1.Text, vrtValue) > 0 Then
listbox1.AddItem vrtValuemot
End If
Next vrtValue
End Sub
[/color=green]