Re
Une suggestion : groundhog
Je vois en relisant le fil que c'est undo qui l'a ouvert.
Peut-être devrais tu ouvrir un fil de discussion spécifique à ton problème.
Car ce fil contient déjà trois pages.
Sub Copieformule()
Dim i&
For i = 1 To 50
Cells(3, i).FormulaR1C1 = "=sum(R1C+R2C)"
Cells(13, i).FormulaR1C1 = "=sum(R1C+R12C)"
Cells(23, i).FormulaR1C1 = "=sum(R1C+R22C)"
Cells(33, i).FormulaR1C1 = "=sum(R1C+R32C)"
Next i
End Sub