Somme ne fonctionne pas

Bonjour le forum,
j'ai un petit soucis d'addition
Voici le code
Sub Totaux()
f = 9: v = 20
For g = 1 To 52 'boucle sur 52 semaines
Worksheets('horaires').Activate
For q = f To v
Worksheets('horaires').Range('R' & q).Value = Worksheets('horaires').Range('D' & q) + Worksheets('horaires').Range('F' & q) + Worksheets('horaires').Range('H' & q) + Worksheets('horaires').Range('J' & q) + Worksheets('horaires').Range('L' & q) + Worksheets('horaires').Range('N' & q) + Worksheets('horaires').Range('P' & q)
Next q
f = f + 35
v = v + 35
Next g
End Sub
Cela bloque sur l'addition, il fait la première boucle(de 9 à 20) puis se bloque
J'ai essayé différente chose mais rien
Merci pour vos idées
Bonne Journée
A+