Finalement problème résolu,
je laisse quand même le sujet avec la réponse, cela peut servir à d’autres.
J’ai utilisé ces lignes pour compter et cela fonctionne parfaitement :
Max = Range(« A2 »).End(xlDown).Row
nbcells = Application.CountA(Range(« A2:A » & Max))