XL 2016 VBA:Nom feuille "en dure" dans formule à remplacer par variable

[Tofff]

Bonjour,
Je voudrai savoir comment on peut remplacer un nom de feuille "mis en dure" dans une formule.

Par exemple la formule ci-dessous me donne le nombre de cellules non vides dans la colonne A.
Cela marche bien
nbcells = Application.WorksheetFunction.CountA("Feuil2".Range("$A:$A"))

Par contre je voudrai effectuer cette fonction dans selon la feuille ou je me trouve.

J'ai essayé ça sans succé:
numfeuille = ActiveSheet.Index 'je récupère le N° de feuille ou je me trouve
NameFeuil = "Feuil" & numfeuille 'Nom de la feuille
nbcells = Application.WorksheetFunction.CountA(NameFeuil.Range("$A:$A"))

J'ai une belle erreur 424 -> Objet requis -

Mon projet a été mené sur des exemples trouvés sur les forums, dont celui-ci, mai là je suis short coté temps.
alors s'il y a une bonne âme pour alléger ma pietre condition de programmeur noob.
Merci

 

[pierrejean]

Bonjour
A tester:
nbcells = Application.WorksheetFunction.CountA(Activesheet.Range("$A:$A"))

 

[Tofff]

Cette solution qui marche était beaucoup trop simple pour moi!
Merci