modifier formule par macro

Bonjour,

J'ai besoin de modifier une formule par macro.

Je m'explique j'ai écrit cette petite macro

Dim vcherchée As String
Dim a As Range
vcherchée1 = "Total Part"
Set a = Sheets("Détail Réseau Fr").Range("A1:A1000").Find(vcherchée1)
If Not a Is Nothing Then a.Offset(0, 1).FormulaR1C1 = a.Offset(0, 1).FormulaR1C1 & "+" & "B2"

a.Offset(0, 1).FormulaR1C1 est déjà égale à =B8
quand je clic sur cette cellule je devrais après exécution de la macro avoir =B8+B2
or j'ai comme résultat =B8+'B2'

merci d'avance pour votre aide.

Laurent.