Lien hypertexte via une macro VBA

Bonjour, je veux améliorer mon code suivant et je dois faire un lien hypertexte entre la cellule est son fichier. Merci d'avance

Sub fichedeviemoule()
	Dim NomFicheM As String, i As Integer, ligne As Integer
	Dim Xl As Excel.Application, Wbk As Excel.Workbook
	Dim Fiche As String
	Dim Chemin As String, Fichier As String
	ligne = Cells(Rows.Count, 6).End(xlUp).Row
	Fiche = "C:\Users\Dream\Desktop\fiche de vie Moule\Fiche.xlsx"
	Set Xl = New Excel.Application
	Xl.Visible = False 
	Set Wbk = Xl.Workbooks.Open(Fiche) 
	Chemin = "C:\Users\Dream\Desktop\fiche de vie Moule" 
	For i = 2 To ligne
		NomFicheM = Cells(i, 6) 
		Fichier = Chemin & "\" & NomFicheM & ".xls" 
		If dir(Fichier) = "" Then Wbk.SaveAs Filename:=Fichier 'l'enregistrement de fichier
	Next i
	Wbk.Close 
	Xl.Quit
End Sub