formule excel en code vba

bonjour le forum
je voudrais transcrire une formule excel en code vba.Aprés plusieurs essais puiser sur les forums ,j'ai trancrit cette formule mais elle ne fonctionne pas,sur le site excel-pratique on me dit que la formule est incorrect mais etant nul en vba c'est pour cela que je viens vers vous.Je joint un bout de fichier.
La formule excel est clle-ci.

Code:

---

=SOMMEPROD(FREQUENCE(SI(Kdonnées=1;LIGNE(KcolC));LIGNE(Kdonnées));FREQUENCE(SI(Kdonnées=1;LIGNE(KcolC));LIGNE(Kdonnées)))

---

kdonnées: nom donné a ma plage($C$2:$C$9000)avec DECALER puisqu'elle s'agrandi tous les jours

merci

Bonjour jad73,

Essaie avec

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Test() Dim Cel As Range Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For Each Cel In Range("Y2:Y71") Cel.FormulaArray = "=SUMPRODUCT(FREQUENCY(IF(Kdonnées=RC[-1],ROW(KcolC)),ROW(Kdonnées)),FREQUENCY(IF(Kdonnées=RC[-1],ROW(KcolC)),ROW(Kdonnées)))" Next Cel Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

---

Cordialement.