Filtre A à Z puis compter le nombre de ligne

Bonjour, je suis débutant en vba est j'aimerais savoir si il est possible de compter le Nombre de ligne de la colonne (A) après avoir filtré la feuille de A à Z.

exemple : j'ai un fichier de 7000 ligne, je filtre la colonne (A) dans l'ordres alphabétique et j'aimerais savoir combien de ligne avec commence par la lettre a puis b puis c ... ainsi de suite pour chacune des première lettres de cette colonne (A).

question 1 : est ce que c'est possible ?
Question 2 : quel méthode (code) vous utiliserez ?

voici mon code actuel en attente de vos réponse merci pour votre aide :

[/contents/446-fichier-sub Sub] verif_data()

Dim NomF1
NomF1 = Sheets(1).Name
Worksheets(NomF1).Activate
Range("A2:Z7722").Sort Key1:=Range("A2"), Order1:=xlAscending

End Sub