Re : Rowsource
voici le code complet
Private Sub BTN_Plus_Click()
Dim Ligne_Config(2) As Variant
If LST_Produits.ListIndex = -1 Then Exit Sub
Ligne_Config(0) = Me.LST_Produits.List(, 0)
Ligne_Config(1) = Application.InputBox("quantité :", _
"Produit : " &...