Private Sub UserForm_Initialize()
Dim tablo, i As Long, data As Object
tablo = Sheets("Mvts").Range("A3:G" & Range("A65000").End(xlUp).Row)
Set data = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(tablo)
If Not data.exists(tablo(i, 5)) Then data.Add tablo(i, 5), tablo(i, 5)
Next i
ComboBox1.List = data.items
End Sub