un calcul de somme

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!!