Private Sub UserForm_Initialize()
Dim choixcompte As Variant
Sheets("Feuil1").Activate
Set DicoNom = CreateObject("Scripting.Dictionary")
For Each Nom In Range("A2:A" & Range("A65536").End(xlUp).Row)
If Not DicoNom.Exists(Nom.Value) And (Nom.Offset(0, 1).Value = "A" Or Nom.Offset(0, 1).Value = "B") Then DicoNom.Add Nom.Value, Nom.Value
Next
ComboBox1.List = DicoNom.items
End Sub