Private Sub UserForm_Initialize()
Dim NbLigneUtilisée As Byte
With Sheets("Feuil1")
For Each Cell In .Range("B4:B" & .Range("B65536").End(xlUp).Row)
Me.ListBox1.AddItem
Me.ListBox1.List(NbLigneUtilisée, 0) = Cell
Me.ListBox1.List(NbLigneUtilisée, 1) = Cell.Offset(0, 1)
Me.ListBox1.List(NbLigneUtilisée, 2) = Cell.Offset(0, 2)
Me.ListBox1.List(NbLigneUtilisée, 3) = Cell.Offset(0, 3)
Me.ListBox1.List(NbLigneUtilisée, 4) = Cell.Offset(0, 4)
Me.ListBox1.List(NbLigneUtilisée, 5) = Cell.Offset(0, 5)
Me.ListBox1.List(NbLigneUtilisée, 6) = Cell.Offset(0, 6)
NbLigneUtilisée = NbLigneUtilisée + 1
Next
End With
ListBox1.ColumnWidths = "110;250;230;30;55;55"
End Sub