Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Temp As Variant, CelFormule As Range
Application.EnableEvents = False
[F5].FormulaLocal = "=2*3"
Set CelFormule = [F5]
Temp = CelFormule.Formula
If Not Intersect(Target, CelFormule) Is Nothing Then
CelFormule.Value = Temp
Target.Offset(5, 0).Select
Set CelFormule = Nothing
End If
Application.EnableEvents = True
End Sub