Nombre de cellules non vides

Bonjour,
Tout d'abord merci pour le Forum, qui m'aide toujours.
J'utilise un code VBA que j'ai copié d'un autre fichier qui donne le nombre de professeur dans textbox dans un userform. Mais Je rencontre un petit problème avec il ne compte pas les cellules non vides d'une colonne cible, il compte seulement les cellules pleines qui sont au dessus d'une cellule vide.
Ce que je souhaite faire est de compter les cellules pleines entre des cellules vides.
Voici le code:

Public Function nbre_prof()
Application.Volatile
Sheets("Base_D").Select
nbre_prof = 0
For n = 2 To 501
If Isfull(Cells(n, 1)) Then
nbre_prof = n - 2
Exit For
End If
Next
End Function


Merci à tous pour votre aide.
Cordialement