PB listbox

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

With ListBox1
      Range(Cells(1, 1), Cells(.ListCount, .ColumnCount)).Value = ListBox1.List
End With

Cliquez pour agrandir...