Private Sub UserForm_Initialize()
Set f = Sheets("BD")
Set d = CreateObject("Scripting.Dictionary")
Set bd = f.Range("A2:M" & f.[M65000].End(xlUp).Row)
For i = 1 To bd.Rows.Count
If bd.Cells(i, 1) <> "" Then d(bd.Cells(i, 1).Value) = ""
Next i
Me.ListBox1.ColumnCount = bd.Columns.Count + 1
Me.ListBox1.Width = bd.Width + bd.Cells(bd.Cells.Count).Width - 25
temp = d.keys
Tri temp, LBound(temp), UBound(temp)
Me.ComboBox1.List = temp
Me.ListBox1.List = bd.Value
For k = 1 To 13
With Me("label" & k)
.Caption = f.Cells(1, k):
.Width = f.Cells(1, k).Width
.Left = f.Cells(1, k).Left + ListBox1.Left
colwidth = colwidth & IIf(k > 1, ";", "") & f.Cells(1, k).Width
End With
ListBox1.ColumnWidths = colwidth
Next k
End Sub