Lancer une fonction à intervalle régulier

Bonjour,

Suite à une brève discussion avec eric, je poste un nouveau sujet.

J'ai créé une fonction qui compte l'ensemble des cellules dans laquelle est présente un mot, dans une certaine plage définie par la cellule de départ (la fonction teste si la cellule suivante de la plage est vide, si oui elle s'arrete d'elle même). Elle prend donc en entrée un mot (à trouver) et une cellule (ou commencer la recherche). J'ai le code suivant:

Function compteur(name As String, cel)
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.Volatile
b = Left(cel.Address, 2)
c = cel.Row
Do While (b & c <> "")
Range(cel.Address).Select
If Range(b & c).Value = name Then
compteur = compteur + 1
End If
c = c + 1
If Range(b & c).Value = "" Then Exit Function
Loop
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Function

Mon problème est le suivant: j'avais cru comprendre que "Application.Volatile" permettait de recalculer la fonction à chaque changement de cellule, mais quelques fois cette modification n'a pas vraiment lieu... Pire, elle me renvoie une liste de zéros, et je suis obligé de recalculer manuellement une des cellules où j'utilise la fonction pour lancer le calcul dans toutes les autres.

Je me suis documenté sur la méthode Application.Ontime mais j'avoue avoir du mal à l'appliquer sur ma fonction...

Merci du coup de main.

Cordialement