Private Sub UserForm_Initialize()
Dim col As String
Dim cellule As Range
Dim Ligdep As Integer
'paramètre
col = "b"
nomfeuille1 = "Enregistrement"
Ligdep = 4
'
With ListBox1
.Clear
.ColumnCount = 5
.ColumnWidths = "90;90;80;80;0"
.Width = 480
'.BoundColumn = 1 ' combobox1.text contient le nom
For Each cellule In Sheets(nomfeuille1).Range(col & Ligdep & ":" & col & Sheets(nomfeuille1).Range(col & Sheets(nomfeuille1).Columns(1).Cells.Count).End(xlUp).Row)
.AddItem cellule.Value ' colonne B
.List(.ListCount - 1, 1) = cellule.Offset(0, 1).Value' colonne C
.List(.ListCount - 1, 1) = cellule.Offset(0, 2).Value' colonne D
.List(.ListCount - 1, 2) = cellule.Offset(0, 3).Value' colonne E
.List(.ListCount - 1, .ColumnCount - 1) = cellule.Row' info pour le numéro de ligne
Next cellule
End With
End Sub