Set mondico = CreateObject("Scripting.Dictionary")
For i = 1 To Range("sigle").Count
If Range("prestation")(i) = Me.Combobox1 Then
temp = Range("sigle")(i)
If Not mondico.Exists(temp) Then mondico.Add temp, temp
End If
Next i
Me.combobox.1.text = mondico.items