Private Sub UserForm_Initialize()
Dim Mondico As Object, c As Range
Me.RESULTRECH.Clear
Set Mondico = CreateObject("Scripting.Dictionary")
For Each c In Range([A2], [A65000].End(xlUp))
If Not Mondico.Exists(c.Value) Then
Mondico.Add c.Value, c.Value
End If
Next c
Me.RESULTRECH.List = Mondico.items
End Sub