Private Sub B_ok_Click()
Dim i As Integer
Dim X As Integer
ligne = ActiveCell.Row
For i = 1 To 5
For X = 0 To Me.ListBox1.ListCount - 1
'If Me.ListBox1.Selected(X) = True And IsNumeric(Me.TextBox1.Value) Then
If Me.ListBox1.Selected(X) = True And Me.TextBox1.Value = True Then
'Then 'And Len(Me.TextBox1) > 1 Then
Cells(ligne, 2) = Me.ListBox1.List(X, 0)
Cells(ligne, 3) = Me.ComboBox1 & " - " & Me.ComboBox2
Cells(ligne + 1, 3) = Me.ListBox1.List(X, 1) & " - " & Me.ListBox1.List(X, 2) & " - " & Me.ComboBox3
Cells(ligne + 1, 4) = Me.ListBox1.List(X, 3)
Cells(ligne + 1, 6) = Me.ListBox1.List(X, 4)
Cells(ligne + 1, 5) = Me.TextBox1.Text
Else
If MsgBox("Veuillez Saisir une Quantité", vbYesNo) = vbYes Then
Me.TextBox1.SetFocus
Exit Sub
Else
MsgBox "Au Revoir"
Exit Sub
End If
End If
Next X
Next i
Cells(ligne + 2, 2).Select
Unload Me
End Sub