Je fais un filtre sur une feuille Excel et j'aimerais ramener le N° de ligne de chaque ligne du résultat .

Pour lire des aires ligne par ligne, il faut utiliser deux boucles imbriquées:

For Each Aire In Range(...).Areas
For Each Ligne In Aire.Rows  ' ...
Next Ligne
Next Aire

Dans le cas des filtres, il est sans doute plus efficace de recourir à la méthode Find

Dim C As Range, Adr 
With ActiveSheet.AutoFilter.Range.Columns(1) 
 Adr = .Cells(1).Address  Set C = .Columns(1).Find("*")  
Do  
MsgBox C.Row  
Set C = .FindNext(C)  
Loop Until C.Address = Adr 
End With  

Find ne prend pas en compte les lignes masquées.