Voilà une autre fonction pour donner ce résultat :
Function NBADD(c As Range)
Dim n%
Application.Volatile
Set c = c.Cells(1, 1)
n = UBound(Split(c.Formula, "+"))
NBADD = IIf(c.HasFormula Or n > 0, n + 1, 0)
End Function
Elle renvoie le nombre de "+" +1, que le contenu de la cellule soit une formule (débutant par =) ou un texte pouvant représenter une formule (ce que pratiquent les métreurs...)
Par contre, si le contenu texte ne contient pas l'opérateur +, elle n'ajoute pas 1 et renvoie alors 0.
Si la plage passée à la fonction contient plusieurs cellules, elle ne traite que la première.
Le système reste limité en ce sens qu'il ne prend en compte que l'opérateur + parmi les diverses façon de réaliser une somme, et ignore les autres opérateurs.
Cordialement.