Application d'une formule jusque dernière ligne non-vide (Count If)

Bonjour,

Je cherche à faire un countIF jusque la dernière cellule non-vide d'une colonne.
J'ai donc créé le compteur permettant de calculer la dernière ligne

Dim DL As Long
DL = Cells(Rows.Count, 1).End(xlUp).Row

Mais je n'arrive pas à trouver le code permettant d'appliquer un count if sur les cellules de ma colonne B pour que le calcul se fasse en fonction des datas de la colonne A...

CODE --- NB SI
1 25
2 26
3 333
4 12
...


Quelqu'un peut-il me venir en aide ? :D

UN GRAND MERCI !