Dim derligne As Long
derligne = Range("a65536").End(xlUp).Row + 1
Range(Cells(derligne, 1), Cells(derligne, ListBox1.ListCount)) = ListBox1.Column
Range(Cells(derligne, 1), Cells(derligne, ListBox1.ColumnCount)) = ListBox1.List
Private Sub ComdOk_Click()
Dim DernLign As Long
With Feuil2
For i = 0 To ListBox1.ListCount - 1
derligne = Range("a65536").End(xlUp).Row + 1
For j = 0 To ListBox1.ColumnCount - 1
Cells(derligne, j + 1) = ListBox1.List(i, j)
Next
Next
End With
End Sub