Private Sub UserForm_Initialize()
TextBox1.Value = Date
Set MonDico = CreateObject("Scripting.Dictionary")
temp = [CLIENT]
For i = 1 To UBound(temp, 1)
If Not MonDico.Exists(temp(i, 1)) Then MonDico.Add temp(i, 1), temp(i, 1)
Next i
Me.List_CLIENT.List = MonDico.items
End Sub