[VBA-E] Recuperer le nombre de lignes filtrées avec SubTotal

Bonjour
Je galere pas mal pour supprimer des lignes dont la colonne H ne contient pas la Valeur1 ou la Valeur2.
Option 1 (If...Then...)
J'avais commencé par un IF ne contient pas THEN supprime la ligne,
mais le code met trop longtemps pour tester les conditions sur plusieurs dizaines de milliers de lignes.
Option 2 (Filtre et supprimer lignes masquees)
J'aimerais alors essayer de filtrer les données des lignes contenant cette fois Valeur1 et valeur2, recuperer leur nombre pour mon historique et controle, et supprimer ensuite ces memes lignes.
J'ai un souci pour recuperer le nombre de lignes contenant Valeur1 et Valeur2 et le mettre dans une variable. J'utilise SubTotal mais j'aimerais enregistrer les sous totaux dans une variable, et pas les afficher au milieu des lignes...Je ne vois pas comment faire.
Mon code est comme ca :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

'Filtrer les lignes au statut Annulé et Rejeté   'Appliquer le filtre automatique si desactivé Worksheets("Request").Activate If Worksheets("Request").AutoFilterMode = False Then Worksheets("Request").Range("A6:AO6").AutoFilter End If MsgBox ("Le filtre automatique est actif")   'Trier les lignes par Statut Worksheets("Request").Range("A6:AO6").AutoFilter Field:=10, Criteria1:="Rejetée", Operator:=xlOr, Criteria2:="Annulée"   'Selectionne les lignes filtrées Worksheets("Request").Range("A6:AO6").Select Range(Selection, Selection.End(xlDown)).Select Selection.Subtotal 10, xlCount, 10, True, , xlSummaryBelow

---

Je suis pas sure de bien m'y prendre, quelqu'un saurait me dire comment recuperer ces sous totaux dans une variable ?
D'avance merci beaucoup ;)

Bon j'ai laissé tomber, c'etait pas la bonne maniere de faire je crois.
Trop galere de recuperer le dernier sous total (somme des autres sous totaux).

Je me suis contenté de recupere le nombre d'occurence pour chaque valeur avant d'appliquer le filtre avec Application.CountIf

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

'Recuperer le N de la derniere ligne de requests Range("A7").Select Range(Selection, Selection.End(xlDown)).Select DerLigReqVar = Selection.Rows.Count DerLigReqVar = DerLigReqVar + 6   'Recuperer le NB de lignes au statut 'Annulée ou 'Rejetée Range("J7:J" & DerLigReqVar).Select SsTotLigAnnuleeVar = Application.CountIf(Selection, "Annulée") MsgBox ("Le nombre de lignes au statut Annulée est de : " & SsTotLigAnnuleeVar) SsTotLigRejeteeVar = Application.CountIf(Selection, "Rejetée") MsgBox ("Le nombre de lignes au statut Rejetée est de : " & SsTotLigRejeteeVar) SsTotLigFiltrVar = SsTotLigAnnuleeVar + SsTotLigRejeteeVar

---