Visual Basic pour Excel - formule inactive

Bonjour à tous,

Avec VBA je souhaite écrire dans le fichier actif la formule:

avec cette macro:

Sub Macro1()
' Macro1 Macro
' Macro enregistrée le 23/06/2011 par gporte
' Touche de raccourci du clavier: Ctrl+Maj+B
    ' recherche du chemin du fichier actif
    Range("A5").Select
    fich0 = ActiveWorkbook.FullName
    fich1 = ActiveWorkbook.Name
    longfich0 = Len(fich0)
    longfich1 = Len(fich1)
    ' chemin
    chem = Left(fich0, longfich0 - longfich1)    
    ' adresse cellule donneuse d'ordre
    cel1 = ActiveCell.Address
    fich2 = Range(cel1).Value
    ' fichier où se trouve l'info à rapatrier
    fich3 = "[" & fich2 & ".xls]"
    fich4 = chem & fich3
    ' préparation de la formule
    rout = "'" & fich4 & "Feuil1'!$C$2"
    ' écriture de la formule
    Range("B5").Select
    ActiveCell.FormulaR1C1 = "'=" & rout
    Range("B5").Select  
End Sub

la formule s'écrit ainsi en B5

le ' devant ='D:\PERSO\Visual Basic\[test 01.xls]Feuil1'!$C$2
interdit l'exécution.
je dois enlever le ' dans la cellule pour activer la formule
Si je ne mets pas le ' , j'ai une erreur 1004
La formule s'écrit correctement au ' près, mais reste inactive
je ne peux écrire sans le ' .
Comment rendre ma formule opérationnelle ou enlever le ' après coup ?

Merci aux pro de VBA
gporte