un calcul de somme

[Reeaz]

Bonjour,

j'essaie de créer une macro qui calculerait en gros une somme glissante, ie qui me permettrait de parcourir des cellules et donc de calculer la somme par rapport à d'autres cellules.
On peut le faire ss excel mais moi il me le faudrait ss forme de macro.

Par exemple, j'aurais:
0,988957717
0,987431624
0,986038979
0,984540785
0,983082522
0,981597078
0,980033027
0,978310498
0,976587968
0,974921004
0,973198475
0,971531511
0,969808981
0,968086452
0,966530619
0,964808089
0,963141125
0,961418596
0,959482209

et j'ai créé:
Sub rate()


fin = Range("Q1").End(xlDown).Row

For i = 1 To fin

cells(i,18).value=(cells(i,17).values-cells(i+12,17))/"(somme cells(i+1,17).value:cells(i+12).value)"

End Sub

c'est donc la division qui intègre une somme qui varie donc selon l'indice que je n'arrive pas à créer.
Sur les données que j'ai envoyées, je cherche donc à calculer par exempl pr la première ligne:

(0,988957717+0,971531511)/SOM(0,987431624
0,986038979
0,984540785
0,983082522
0,981597078
0,980033027
0,978310498
0,976587968
0,974921004
0,973198475
0,971531511
0,969808981)
ainsi de suite.....

Si qqun pvait m'aider ce serait sympa.
Merci!!