XL 2010 formule sommeprod en vba

[esaurelien2020]

La Formule Marche tres bien mais je voudrais l'obtenir en VBA vu le gain de temps, cest enormement lourd. Puisque je recopie la formule sur pres de 1500 lignes du coup ca prends bcp trop de temps.

Comment pourrais je ecrire cette formule en VBA.
=SOMMEPROD(($D$4:$G$4="1AGE")*(ESTNUM($D15:$G15))*($D$9:$G$9);$D15:$G15)/SOMMEPROD(($D$4:$G$4="1AGE")*(ESTNUM($D15:$G15))*($D$9:$G$9))

Merci a tous

 

[job75]

Bonsoir esaurelien2020,

Chaque formule travaille sur 12 cellules donc sur 1500 lignes ça fait 18000 cellules.

C'est peu et le calcul est quasi immédiat, j'ai testé.

Il doit y avoir autre chose et VBA n'apporterait rien de mieux.

A+