Sub CopierFormule()
Dim f$
On Error Resume Next
With [A3].CurrentRegion 'à adapter
f = .Cells(2, 2).FormulaR1C1 'mémorise la formule en B4
.Cells(2, 2).Resize(.Rows.Count - 1, .Columns.Count - 1).ClearContents 'RAZ
End With
With [A3].CurrentRegion 'elle peut avoir changé
.Cells(2, 2) = f
.Cells(2, 2).Resize(.Rows.Count - 1, .Columns.Count - 1) = f
End With
End Sub