Source de problèmes, j'évite. On peut procéder autrement (un exemple de fichier envoyé il y a quelques minutes).- Il faut utiliser la propriété RowSource pour alimenter la ListBox
Private Sub UserForm_Initialize()
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
temp = temp & Columns(i).Width * 1.1 & ";"
Next
Me.ListBox1.ColumnWidths = temp
End Sub