Extraire valeur d'une liste filtrée

Oui en effet j'ai appliqué cette formule, mon souci est que la formule s'applique sur la meme colonne dont les valeurs change en fonction du filtre.

J'ai trois filtres différents et j'aimerais reporter dans un tableau les 6 valeurs ( 3 mini et 3 maxi)

Actuellement les ces valeurs sont les mêmes (1 mini et 1 maxi), je souhaiterai fixer chaque max et chaque min.

Puis je joindre une capture d'écran pour illustrer mes propos ?

Pour l'extraction du maximum, j'ai la macro suivante.
Pour figer les résultats dans G15, G16 et G17, devrais-je créer une variable...?
Ou autre astuce...
Je ne parviens pas à fixer ces résultats !!

Sub maxi()
'
' maxi Macro
'

'
Sheets("Ratios").Select
ActiveSheet.Range("$B$5:$BI$173").AutoFilter Field:=15, Criteria1:="<>"
Sheets("Synthèse").Select
Range("G15").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(4,Ratios!R[-2]C[2]:R[145]C[2])"
Range("G16").Select
Sheets("Ratios").Select
ActiveWindow.SmallScroll Down:=-63
ActiveSheet.Range("$B$5:$BI$173").AutoFilter Field:=15
ActiveSheet.Range("$B$5:$BI$173").AutoFilter Field:=16, Criteria1:="<>"
Sheets("Synthèse").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(4,Ratios!R[-5]C[2]:R[3]C[2])"
Range("G17").Select
Sheets("Ratios").Select
ActiveSheet.Range("$B$5:$BI$173").AutoFilter Field:=16
ActiveSheet.Range("$B$5:$BI$173").AutoFilter Field:=17, Criteria1:="<>"
Sheets("Synthèse").Select
Range("G17").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(4,Ratios!R[3]C[2]:R[155]C[2])"
Range("G18").Select
Sheets("Ratios").Select
ActiveWindow.SmallScroll Down:=-15
ActiveSheet.Range("$B$5:$BI$173").AutoFilter Field:=17
Sheets("Synthèse").Select
End Sub

ou bien, plus simple, si cela est possible...
comment entrer un filtre en deuxième référence ?
=SOUS.TOTAL(4;Ratios!I11:I174;autofilter)