Suppression doublons dans combobox userform

Bonjour ou bonsoir !!

Est ce que qqun pourrais m'aider à supprimer les doublons dans les combobox de mon userform : Frm_Info

Merci d'avance !!

Bonjour,

à tester,

Private Sub UserForm_initialize()
    Dim cle, Valeur
    Set fapc = Sheets("Auto Contrôles")
    Set dico = CreateObject("Scripting.Dictionary")

    For i = 2 To fapc.Range("A" & Rows.Count).End(xlUp).Row
        cle = fapc.Range("A" & i)
        Valeur = ""
          If Not dico.Exists(cle) Then
            dico.Add cle, Valeur
          End If
    Next i
    cbo_type.List = Application.Transpose(dico.Keys)

    Set fapc = Nothing
    Set dico = Nothing
End Sub