Compter nombre de lignes selon un critère

Bonjour,

Je suis déjà venu pour demander de l'aide pour compter des lignes, mais là c'est différent, j'essaye de compter en fonction du critère dans la colonne. Je m'explique: j'ai une grosse base de données avec plus de 10 000 lignes allant jusqu'au colonnes CX. Mon but est de réaliser des indicateurs, pour cela, en général, une certaine colonne va être le jalon me permettant de définir mon indicateur, (exemple: le statut en "terminé", "lancé", "non lancé"), cependant, je fais déjà un premier tri en VBA, je copie colle les colonnes que je désire voir (environ 10) dans une nouvelle feuille qui sera une nouvelle BDD. Et c'est sur cette BDD que je veux effectuer mes traitements, toujours sur l'exemple des statuts, je veux être capable de compter le nombre de lignes qu'il y a avec le statut "lancé", celles avec le statut "non lancé" et le statut "terminé", et que ça me renvoit la valeur dans une cellule. Là où je bloque sur le code, c'est pour qu'il me calcule le nombre de lignes, je vous donne ce que j'ai pu effectuer.

Dim lg as Integer
Dim dernligne as Integer
Dim n as Integer
Dim NbLig As Integer

       'variable de ligne pour synthèse
       lg = 1
        'recherche dernière ligne remplie dans Base
       dernligne = Sheets("Nouvelle BDD").Range("A" & Rows.Count).End(xlUp).Row
        ' boucle sur les lignes d'Application
       For n = 1 To dernligne
        'si statut correpond à celui déterminé au clic dans bouton option
       If Sheets("Nouvelle BDD").Range("D" & n).Value = "Lancé" Then
            'incrementation de la ligne dans synthèse
        lg = lg + 1
       NbLig = Sheets("Nouvelle BDD").Range("D1", [D1].End(xlDown)).Rows.Count
    
    'Copie dans l'indicateur
    Sheets("Indicateur OF").Select
    Range("D6").Select
    Selection.Value = NbLig4 - 1  'Car je ne désire pas la première valeur puisque c'est l'entête
    Selection.Copy
    'Mise à jour dans bilan
    Sheets("Bilan des indicateurs").Select
    Range("D24").Select
    ActiveSheet.Paste


           End If

       Next n

J'ai beau avoir cherché, j'ai essayé de tordre, modifier mon code avec des solutions existantes, ça ne collait pas du tout avec ce que je désirais. Déjà ce code, ne veut même pas prendre en compte ma condition et me comptait le nombre de lignes avec le statut "Lancé", en revanche il me compte toutes les lignes confondues.


Donc je sais que ça pêche à ce niveau, mais je vois pas comment faire, si déjà je m'y suis bien pris, et si oui comment faire pour arriver à la solution que je recherche.


En vous remerciant d'avance pour prendre le temps de lire mon pavé!

Cordialement,