Private Sub UserForm_Initialize()
Dim Col As Integer, LargCol As String, k As Byte, PosLbl As Single
With Sheets("boulangerie")
.Activate
PosLbl = 5.5
LargCol = ""
With ListBox1
.Clear
.ColumnCount = 8
For Lig = 7 To Range("A" & Application.Rows.Count).End(xlUp).Row
If Range("D" & Lig) <> "" Then
.AddItem Cells(Lig, 1).Value
For Col = 2 To 7
.Column(Col - 1, .ListCount - 1) = Cells(Lig, Col).Value
Next Col
.Column(Col, .ListCount - 1) = Lig
End If
Next Lig
For k = 1 To .ColumnCount - 1
LargCol = LargCol & Columns(k).Width & ";"
Controls("Label" & k).Width = Columns(k).Width
Controls("Label" & k).Left = PosLbl
PosLbl = PosLbl + Columns(k).Width + 1
Controls("Label" & k).TextAlign = 1
Next k
.ColumnWidths = LargCol
.ListIndex = 0
.Width = PosLbl - 6
End With
End With
Me.Width = PosLbl + 10
End Sub