Récupérer une variable dans une formule

Bonjour,


Voici ma macro :
Sub Macro1()
Range("A3").Select
ActiveCell.FormulaR1C1 = _
"=IF('Janvier 2008'!RC[3]="""",'Janvier 2008'!RC,"""")"
Range("A4").Select
End Sub

Je voudrais la transformer en :
Sub Macro1()
Range("A3").Select
A="Janvier 2008"
ActiveCell.FormulaR1C1 = _
"=IF(A!RC[3]="""",A!RC,"""")"
Range("A4").Select
End Sub

Cela ne fonctionne pas? Comment puis je faire pour récupérer une valeur de type string et la remplacer dans ma formule à la place de 'Janvier 2008'

Merci à tout le monde pour votre aide

Mic333