colonne listbox

Private Sub UserForm_Initialize()
With Me.ListBox1
    .ColumnCount = 5
    .List = Sheets("Feuil3").Range("A1:E8").Value
    .ColumnWidths = "60;0;0;0;60"
End With
End Sub

Private Sub UserForm_Initialize()
Dim p As Range
With Sheets("Feuil3")
Set p = Cells(1, "A").Resize(Cells(Rows.Count, 1).End(3).Row, 5)
End With
With Me.ListBox1
    .ColumnCount = 5
    .List = p.Value
    .ColumnWidths = "60;0;0;0;60"
End With
End Sub

Private Sub UserForm_Initialize()
  Dim R As Range
  With ListBox1
    For Each R In Range("A2", [A6500].End(xlUp))
      .AddItem R
      .List(.ListCount - 1, 1) = R(1, 5)
    Next
  End With
End Sub