chemin d'un fichier dans une formule XL

Bonjour,
Help,
J'ai fait cette petite macro mais celle ci ne fonctionne pas :

Sub Macro1()
Dim Fichier As String
Fichier = Application.GetOpenFilename('Fichier Image (*.jpg),*.jpg')
ActiveCell.FormulaR1C1 = '=HYPERLINK(Chemin/image.jpg,''image'')'
End Sub

j'aimerai qu'il y est à la place de 'chemin/image.jpg' de la formule hyperlink, le chemin du fichier qui a été extrait au dessus.