VBA Excel : Récupérer une valeur issu d'une formule dans une variable

Bonjour.

Je programme actuellement une macro sous excel qui me permet d'effectuer des copier coller de résultat d'étude à partir de fichiers excel.

Ces données sont rangé par années.
Il y a un relevé par jours depuis 1994 qui est effectué et enregistré.

Pour pouvoir connaitre le nombre exact  de ligne à copier, je souhaite utiliser un nbval.

Cependant, cela me renvoie l'erreur suivante:

"Erreur d'execution 13: Incompatibilité de type".

Voici la partie de mon code qui me renvoie cette erreur:

   Dim x as integer
    ...
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "=SOMME(NBVAL(A:A)-4)"
    x = Sheets("" & RetourAnn).Range("D1").Value

Quelqu'un pourrait-il m'éclairer sur le problème que je rencontre?

PS: Lorsque je fais débogage et que je retourne sur le document excel, j'ai juste à cliquer sur la formule de cellule D1, et appuyer sur entrée pour que le programme reprenne normalement. Mais ce programme ne m'étant pas destiné personnellement, j'aimerais bien que les prochains utilisateurs n'ai pas besoin de faire ceci ainsi qu'aller dans l'éditeur de macro...

Merci, effectivement, j'avais pas vu que je m'étais planté, fallais mettre

ActiveCell.FormulaR1C1 = "=SUM(COUNTA(C[-3])-4)"

au lieu de

ActiveCell.FormulaR1C1 = "=SOMME(NBVAL(A:A)-4)"

grosse erreur d'inattention de ma part, merci de me l'avoir fait remarqué :)