Bonsoir
Utilise ce code pour alimenter ta combobox sans doublons
Private Sub UserForm_Initialize()
Dim c As Range
Dim tablo As New Collection
On Error Resume Next
With Sheets("Feuil1")
For Each c In .Range("M11:M" & .Range("M" & .Rows.Count).End(xlUp).Row)
tablo.Add c.Value, CStr(c.Value)
Next c
On Error GoTo 0
For Each Item In tablo
Me.ComboBox1.AddItem Item
Next
End With
End Sub
Code à placer dans l'USF.
Si ok, clique sur le V vert à coté du bouton EDITER lors de ta réponse afin de clôturer le fil
Crdlt