Dim Tableau(0 To 3) As String Private Sub Form_Load() List1.Visible = False Tableau(0) = "fondre" Tableau(1) = "fondue" Tableau(2) = "fondant" Tableau(3) = "fonte" End Sub Private Sub List1_Click() Text1 = List1.Text List1.Visible = False End Sub Private Sub Text1_Change() List1.Clear For i = 0 To UBound(Tableau) If LCase(Left(Tableau(i), Len(Text1))) = LCase(Text1) Then List1.AddItem Tableau(i) Next iIf List1.ListCount <> 0 Then List1.Visible True Else List1.Visible False End Sub