Private Sub ComboBox4_Change()
Dim i As Long
'---
With ListBox10
For i = 0 To .ListCount - 1
If .List(i, 0) = Me.ComboBox2 And .List(i, 1) = Me.ComboBox3 Then
MsgBox "Produit avec ce conditionnement deja existant", vbExclamation, _
"ATTENTION ... !"
Exit Sub
End If
Next i
End With
End Sub