Private Sub CommandButton1_Click()
Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
Range('b' & i + 1) = ListBox1.List(i)
Next i
end sub
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
Range('a' & i + 1) = ListBox1.List(i, 0)
Range('b' & i + 1) = ListBox1.List(i, 1)
Range('c' & i + 1) = ListBox1.List(i, 2)
Next i
End Sub
Cordialement.With ListBox1
Range(Cells(1, 1), Cells(.ListCount, .ColumnCount)).Value = ListBox1.List
End With