Private Sub B_ok_Click()
Dim dl1 As Long ' dernière ligne
Dim i As Byte, j As Byte
Dim dc1 As Long
With Sheets("monte")
dc1 = .Cells(5, .Rows(5).Cells.Count).End(xlToLeft).Column + 1
If dc1 = 2 Then dc1 = 1
.Cells(3, dc1) = Me.ComboBox3.Value
If Me.ListBox1.ListCount = 0 Then Exit Sub
For i = 0 To Me.ListBox1.ListCount - 1
dl1 = .Cells(.Columns(dc1).Cells.Count, dc1).End(xlUp).Row + 1
If dl1 < 5 Then dl1 = 5
For j = 0 To Me.ListBox1.ColumnCount - 1
.Cells(dl1, dc1 + j) = Me.ListBox1.List(i, j)
Next j
Next i
End With
Me.ListBox1.Clear
UserForm_Initialize
End Sub