Private Sub DesignationBox_Change()
Dim Produit
ListBox1.Clear
DesignationBox = LTrim(DesignationBox)
If Len(DesignationBox) > 0 Then
For Each Produit In Range("Produits").Value
If Produit Like DesignationBox & "*" Then ListBox1.AddItem Produit
Next Produit
End If
End Sub