salut,
tu as plusieurs solutions :
Cells(47, 5).FormulaR1C1 = "=SUM(R[-38]C[2]:R[-8]C[2])"
ou alors
Cells(47, 5).Value = Application.WorksheetFunction.Sum(Range("G9:G39" ))
la dernière se rapproche plus de celle que tu voulais utiliser
bon courage pour la suite
@+