Question VBA (code fourni, aide comboBox)

Bonjour, j'aurais besoin d'un coup de pouce.
Je vous explique rapidement ce que je realise et vous montrerais comment je l'ai écris apres, j'ai deux collones (par exemple A1 sera les "pays" et B1 les "equipes").

J'ai utilisé une UserForm, où j'ai ajouté 2 ComboBox, afin de pouvoir faire derouler mes informations!

J'ai réalisé un tri car j'ai plusieurs et même informations qui revienne (si j'ai 3 fois le pays france, jene le faire apparaitre qu'une fois dans la ComboBox).
Mais j'aimearais pouvoir fair un autre tri en quelque sorte, c'est a dire par exemple:
si j'ai 3 fois la france qui reviens j'aimerais que dans ma comboxBox "equipes" il n'y aie seulement le nom des equipes de france et non ceux de tous les pays comme je l'ai actuellement!

J'espère que je suis suffisament clair  , car je ne connais pas tout le vocavulaire de VBA, je n'en pratique seulement depuis 1 mois ...


Voici le code que j'utilise :


Private Sub UserForm_Initialize()

Dim NoDupes As New Collection

A = Range([A2], [A65536].End(xlUp)).Value

On Error Resume Next

For j = 1 To UBound(A, 1)
NoDupes.Add A(j, 1), CStr(A(j, 1))
Next j

On Error GoTo 0

For i = 1 To NoDupes.Count
Me.Pays.AddItem NoDupes(i)
Next i

End Sub

Private Sub UserForm_Activate()


Dim NoDupes As New Collection

B = Range([B2], [B65536].End(xlUp)).Value

On Error Resume Next

For j = 1 To UBound(B, 1)
NoDupes.Add B(j, 1), CStr(B(j, 1))
Next j

On Error GoTo 0

For i = 1 To NoDupes.Count
Me.Equipe.AddItem NoDupes(i)
Next i

End Sub


Merci d'avance à tous ceux qui pourront m'aider  
(une dernière question au passage, est-ce que j'ai moyen de réunir en une designation au lieu de deux mon code actuel?)