Sub EnteteListBox() 'Boisgontier
Dim x As Integer, y As Integer, i As Byte, lab As Object, temp, Rng
Set Rng = Sheets("bd").Range("A2:J" & f.[A65000].End(xlUp).Row)
x = Me.ListBox1.Left + 8
y = Me.ListBox1.Top - 12
For i = 1 To Me.ListBox1.ColumnCount
Set lab = Me.Controls.Add("Forms.Label.1")
lab.Caption = Rng.Offset(-1).Cells(1, i)
lab.Top = y
lab.Left = x
x = x + Int(Rng.Columns(i).Width * 1.1)
temp = temp & Int(Rng.Columns(i).Width * 1.1) & ";"
Next
temp = Left(temp, Len(temp) - 1)
Me.ListBox1.ColumnWidths = temp
End Sub