Traduire NBVal en VBA

[Ours masqué]

Bonjour à tous,

Je me permets de remercier encore une fois ce forum pour toutes les réponses que je trouve en cherchant des discussions résolues. Quoi qu'il en soit, je sèche sur un problème sans doute tout bête :

J'ai dans une page, trois cellules qui contiennent respectivement :
en A1 =NBVAL(E:E)-1
en D1 =A1-NB.SI(A:A;"<100")-1
en F1 =NB.SI(A:A;">=100")

parce que j'ai besoin de ces valeurs pour faire des tris du style :
Rows("3:" & Range("A1").Value + 2).Select

Seulement, ça ne fait pas très propre dans mon programme. J'aimerais mieux :
Rows("3:" & la traduction de la formule en A1).Select

Y a t'il moyen de traduire ces expressions en VBA de manière très simple ? Je ne trouve pas et ça m'embête.

Merci beaucoup pour votre aide. Ours masqué !

 

[Ours masqué]

Re : Traduire NBVal en VBA

Pas mal cette idée. Très excellent même.
Je regrette de ne pas trop pouvoir suivre : j'ai pas le droit de bosser en vacances...
Merci Pierrot et à tout ceux qui m'aident sur ce pb.