Private Sub Form_Load() List1.AddItem "azerty" List1.AddItem "albert" List1.AddItem "tyrannie" List1.AddItem "russie" List1.AddItem "ordinateur" List1.AddItem "potdeflower" List1.AddItem "camera" List1.AddItem "canape" List1.AddItem "vbfrance" Text1.Text = vbNullString End Sub Private Sub Text1_Change() List2.Clear Dim Str As String, i As Long For i = 0 To List1.ListCount - 1 Str = List1.List(i) If InStr(1, Str, Text1.Text) <> 0 Then List2.AddItem Str End If Next i End Sub