With Me.List_OF
For i = 0 To .ListCount - 1
If .List(i, 0) = Me.cbx_2 Then
MsgBox "Produit déja saisi !"
Exit Sub
End If
Next i
.AddItem
.List(memoire, 0) = Me.cbx_2
.List(memoire, 1) = Me.txt_quantite
.List(memoire, 2) = Me.txt_prix
End With
memoire = memoire + 1
Me.cbx_2 = ""
Me.txt_quantite = ""
Me.txt_prix = ""
Me.cbx_1.Enabled = False
End If