Trouver en formule et en VBA les numéros de lignes filtrées.

Sub Trouve_Lignes_Filtrées()
   derl = [A1].SpecialCells(xlLastCell).Row
   Range("A2:A" & derl).Select
   Selection.SpecialCells(xlCellTypeVisible).Select
    'MsgBox Selection.Rows.Count
    For Each cell In Selection
      If cell <> "" Then MsgBox cell.Row
    Next
End Sub

=PETITE.VALEUR(SI(SOUS.TOTAL(3;DECALER(A2;LIGNE(A$2:A$8)-LIGNE(A2);));LIGNE(A$2:E$8));LIGNES($1:1))

Sub Trouve_Lignes_Filtrées()
   derl = [A3].SpecialCells(xlLastCell).Row
   derl = Cells(3, 1).End(xlDown).Row
   derl = Cells(65536, 1).End(xlUp).Row
   n = Application.Subtotal(3, Range("A3:A" & derl))
   If n = 0 Then MsgBox "pas d'élément dans le filtre": End
   derl = Cells(65536, 1).End(xlUp).Row
   'stop
   Range("A3:A" & derl).Select
   Selection.SpecialCells(xlCellTypeVisible).Select
    MsgBox Selection.Rows.Count
    For Each cell In Selection
      If cell <> "" Then MsgBox cell.Row
    Next
End Sub