Quelqu'un peut-il corriger cette macro Excel 2010?

Bien, j’ai enregistré une macro mais cela ne fonctionne pas correctement. C'est comme suit:

Sub OpenCase1()
'
' OpenCase1 Macro
'

'
    Range("G5").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[-3]"
    Range("G5").Select
End Sub

C'est une commande simple, pensai-je, mais évidemment cela ne fonctionne pas. Ce que je veux, c’est que lorsque vous cliquez sur la macro, la cellule G5 sera remplacée par = D1, en copiant le contenu de la cellule D1. De l'aide précédente que j'ai obtenue, les Selectparties de la macro peuvent poser problème, mais ce n'est peut-être pas le cas ici.

Toute aide est plutôt appréciée, merci de nous aider :)

Simplifiez le code en accédant directement à la cellule sans Select

Range("G5").Value = "=D1"

ou

Range("G5").Formula = "=D1"

ou si vous voulez utiliser votre notation pour une autre raison

Range("G5").FormulaR1C1 = "=R[-4]C[-3]"