Nombre de lignes avec VBA

Bonjour,

Je veux mettre en place une macro pour compter le nombre de lignes qui existent entre deux cellules qui contient le même mot (par exemple : Nom). Je dois compter aussi les lignes vides.

J'ai besoin de votre aide, si c'est possible.

Merci d'avance.

N.B. Voir l'exemple ci-joint.

bonsoir,

une proposition, le résultat est mis sur la ligne du mot trouvé en colonne 5

Sub aargh()
    With ActiveSheet
        dl = .Cells(Rows.Count, 3).End(xlUp).Row
        Set pl = .Range("A1:A" & dl)
        Set re = pl.Find("Nom ", lookat:=xlWhole)
        If Not re Is Nothing Then
            fr = re.Row
            nr = fr
            Set re = pl.FindNext(re)
            Do While re.Row <> fr
                .Cells(nr, 5) = re.Row - nr - 1
                nr = re.Row
                Set re = pl.FindNext(re)
            Loop
            .Cells(nr, 5) = dl - nr
        Else
            MsgBox "Nom non trouvé"
        End If
    End With
End Sub