Intégrer un filtre automatique dans une Combobox

Bonjour

je galère actuellement sur la dernière partie de mon fichier excel
je souhaite mettre dans une combobox le résultat d'un filtre automatique

je commence par créer mon filtre

Sheets("BDD").Select

'Lancement du filtre automatique
ActiveSheet.Range("$A$1:$F$5").AutoFilter Field:=4, Criteria1:=F_Gestion.T_Feeder_Rapport, _
Operator:=xlAnd

je filtre sur la colonne D avec le critère récupéré dans un TextBox
mon filtre fonctionne et me donne un résultat
ensuite je souhaite récupérer la colonne A et mettre que les résultats visibles dans une ComboBox "F_Gestion.T_Date_Rapport"

mais je bloque et je n'arrive pas malgré les différentes réponses dans les forums à trouver la solution
Normalement pour remplir une ComboBox j'utilise :

Sheets("BDD").Activate 'Ouvrir la feuille "BDD"
Range("A2").Activate 'Sélectionner la cellule "A2"

F_Gestion.T_Date_Rapport.Clear 'Vider la Combobox

Do Until IsEmpty(ActiveCell.Value) 'Début de Boucle pour renseigner la zone de liste

'Prendre la valeur de la cellule et la positionner en valeur de la zone de liste
F_Gestion.T_Date_Rapport.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Activate

Mais dans ce cas précis cela ne fonctionne pas car je me retrouve avec l'ensemble de la colonne A dans ma ComboBox et je ne veux que les résultats du filtre

Merci d'avance pour votre aide

Cdlt

Aurélien