nbcol = [clients].CurrentRegion.Columns.Count
Me.ListBox1.ColumnCount = nbcol
Me.ListBox1.List = Range("clients").Resize(, nbcol).Value
i = 1
x = 15
For i = 1 To nbcol
retour = Me.Controls.Add("Forms.Label.1", "Label" & i, True)
Me("label" & i).Caption = Cells(1, i)
Me("label" & i).Top = 40
Me("label" & i).Left = x
x = x + Columns(i).Width * 1.1
[COLOR="Blue"][B]temp[/B][/COLOR] = temp & Columns(i).Width * 1.1 & ";"
Next
Me.ListBox1.[COLOR="Red"][B]ColumnWidths[/B][/COLOR] = [COLOR="Blue"][B]temp[/B][/COLOR]