Réponse acceptée !
Voici la solution d'après le lien PCPT et Merci au passage.
Private Sub NoDupesInCombo(ByRef cbo As ComboBox)
Dim i As Long, j As Long
For i = 0 To cbo.ListCount - 1
For j = cbo.ListCount - 1 To i + 1 Step -1
If cbo.List(i) = cbo.List(j) Then cbo.RemoveItem (j)
Next j
Next i
End Sub
Private Sub CommandButton1_Click()
Call NoDupesInCombo(Me.ComboBox1)
End Sub
Cordialement,
Le savoir est la lumière de nous tous, partageons le!