Supprimer doublons combobox

[FaruSZ]

Bonjour,
j'essaye de remplir une combobox sans doublons, j'ai ce code qui m'affcihe tout les elements de la colonne A de ma feuille, mais je veux supprimer les duoublons:
Private Sub CommandButton1_Click()
Dim ws_Liste_Affect As Worksheet
Set ws_Liste_Affect = ActiveWorkbook.Worksheets("affectation")
Fin_Liste_Affect = ws_Liste_Affect.Range("A65530").End(xlUp).Row
For i = 2 To Fin_Liste_Affect
UserForm_SDE.ComboBox_Affect.AddItem ws_Liste_Affect.Range("A" & i)
Next
End Sub
Merci pour vos propositions

 

[modus57]

Peut-être la réponse sur ce lien :
https://www.excel-downloads.com/threads/objet-afficher-dans-combobox-liste-sans-doublon.20021196/

 

[FaruSZ]

Solution trouvée:
J'ia remplacé la ligne:

UserForm_SDE.ComboBox_Affect.AddItem ws_Liste_Affect.Range("A" & i)
par
If (i=2) OR (WorksheetFunction.CountIf(ws_suivi.Range(ws_suivi.Cells(2,30),ws_suivi.Cells(i-1,30)), ws_suivi.cells(i,30).Value)<1) Then UserForm_SDE.ComboBox_Type_Rapp.AddItem ws_suivi.Range("AD" & i) End If