Compter les lignes vides

Bonjour à tous.

j'ai trouvé sur un forum une discussion qui pouvait régler mon problème, à savoir, à partir d'une cellule donnée, remonter jusqu'à la prochaine cellule non vide, et écrire dans une autre cellule le nombre de lignes vides.

le code tant le suivant

Dim P As Range

If Application.CountBlank(Range("A1:A46")) Then

For Each P In Range("A1:A46").SpecialCells(xlCellTypeBlanks).Areas

P(1).Offset(0, 1).Value = P.Count

Next P

End If

mon soucis c'est que je voudrais le mettre dans l'événement change de la feuille afin que ma cellule soit toujours renseignée en temps réel...Sauf que le code n'arrête pas de s'exécuter.

Si quelqu'un sait pourquoi...

merci d'avance pour vos réponses

au fait j'ai oublié de préciser que je veux compter les lignes vides contiguës.

Salut le forum

Tu n'as qu'à cliquer sur ce lien : Joindre un fichier pour que l'on puisse t'aider, et recopier l'adresse sur ta ficelle.

Mytå