Bonjour,
si tu utilise Activesheet, ton code s'effectuera dans la feuille active.
Si tu souhaites que ta macro s'effectue dans une feuille en particulier, indique lui en remplacent activesheet par sheets("Nom_de_ta_feuille").
Ce qui doit te donner :
DerLig = ActiveSheet.Range("G" & Rows.Count).End(xlUp).Row
sheets("Nom_de_ta_feuille").Range("H" & DerLig + 3).FormulaR1C1 = "=SUM(R[-" & DerLig + 1 & "]C:R[-3]C)"
Cordialement