Dim LB() As New Classe1
Sub USF()
Dim nlig&, j%, i&
With Feuil1.[A1].CurrentRegion 'CodeName de la feuille
nlig = .Rows.Count
For j = 1 To .Columns.Count
ReDim Preserve LB(1 To j)
Set LB(j).LB = UserForm1.Controls.Add("Forms.listbox.1", .Cells(1, j))
LB(j).LB.Top = 12
LB(j).LB.Left = 12 + 92 * (j - 1)
LB(j).LB.Height = 100
LB(j).LB.Width = 80
For i = 2 To nlig
If .Cells(i, j) <> "" Then LB(j).LB.AddItem .Cells(i, j)
Next i, j
End With
UserForm1.Width = 92 * (j - 1) + 12
UserForm1.Show
End Sub