Inserer un lien hypertext depuis une variable

Bonjour,

Dans VBA, j'ai un programme qui me créé un chemin d'acces vers un fichier dans une variable string. ( C\ ... \ fichier.xls )
Malheuresement, je n'arrive pas à mettre le contenu de cette variable dans une cellule en tant que liens hypertexte, quelqu'un aurai une solution ?

Si dessous une partie du programme :

Dim DialogueFichier As Object
Dim MonFichier As String
'Ouverture de boite, on a 1 pour ouvrir, 2 pour enregistrer sous, 3 pour récupérer un fichier et 4 pour récupérer un dossier
Set DialogueFichier = Application.FileDialog(1)
DialogueFichier.AllowMultiSelect = False
'DialogueFichier.Filters.Add "*.xls;*.xlsx", 1
DialogueFichier.InitialFileName = "C:\01 TRW"
DialogueFichier.Show

If DialogueFichier.SelectedItems.Count = 0 Then
MsgBox "You don't have selected any file"

Else

MonFichier = Trim(DialogueFichier.SelectedItems(1))

et le "bug"

ActiveSheet.Hyperlinks.Add Anchor:=Selection, adresse:=MonFichier

ici, VBA ne reconnait plus la varianble.

Merci d'avance de votre aide et bonne journée !

Fred