Private Sub UserForm_Initialize()
Set mondico = CreateObject("Scripting.Dictionary")
Set plage = [A2].Resize([A2].CurrentRegion.Rows.Count - 1, _
[A2].CurrentRegion.Columns.Count)
a = plage.Value
For i = 1 To plage.Columns.Count
For j = 1 To plage.Rows.Count
mondico(a(j, i)) = ""
Next j
Next i
ListBox1.List = mondico.keys
End Sub