PB parcours liste filtrée Excel

Bonjour à tous,

Comment faire pour parcourir en VBA chaque cellule d'une feuille Excel filtrée ?

1 Exemple pour être plus clair
Feuille Excel au départ
a 1
b 1
c 1
d 2
f 1
e 2
f 2
g 1

Je filtre sur la valeur 1
a 1
b 1
c 1
f 1
g 1


Pour récupérer les valeurs correspondant au filtre, je pensais faire une boucle for i=1 to 5, mais VBA ne tiens pas compte du filtre, il me récupère les 5 premières cellules de la feuille (soit a,b,c,d,f,e) alors que je voudrais récupérer a,b,c,f,g

En gros ca doit donner un truc du style :

dim variable as string
dim ligne as integer

'initialisation variable
variable = "init"
ligne = 1

'traitement
do until variable = ""
variable = worksheets("nomdetafeuillededonnee").cells(ligne,2)
if variable = "1" then 'si on parcours une cellule avec un 1
'bah la tu fais ce que tu ve, tu pe compter le nb de ligne ou autre chose ! a toi de voir
endif
ligne = ligne + 1 'passage a la ligne suivante
loop