XL 2010 Lien Hypertexte

Bonjour le forum,

Je travail sur une base de données ou je veux rajouter des liens hypertextes pour consulter quelques documents .
J'ai cree ce code, le pb c'est que quand je viens consulter le document il me dit document non trouvé.
Je sais pas ou est le pb, Merci


Private Sub Sub_Ajout_Mdp_Forma_Click()
If Me.ListBox_Form_Intern.ListIndex = -1 Then
MsgBox ("Pour ajouter le mode de preuve veuillez choisir une formation")
Else
Set ws = ActiveWorkbook.Worksheets(Personne)
Nom_Forma = Me.ListBox_Form_Intern.List(Me.ListBox_Form_Intern.ListIndex, 0)
Date_Forma = Me.ListBox_Form_Intern.List(Me.ListBox_Form_Intern.ListIndex, 1)
Fin_Col_Forma = ws.Cells(10, 256).End(xlToLeft).Column
ws.Cells(10, Fin_Col_Forma + 1).Value = Nom_Forma
Cells(10, Fin_Col_Forma + 1).Select
ws.Activate
repertoire = Application.GetOpenFilename()
ws.Cells(11, Fin_Col_Forma + 1) = CDate(Date_Forma)
ws.Cells(12, Fin_Col_Forma + 1) = repertoire

End If
End Sub

Code pr consulter :

Private Sub Editer_MdP_Formation_Click()
If UF_Profil_Edit1.ListBox_Form_Intern.ListIndex = -1 Then
MsgBox ("Vous n'avez pas selectionner une formation")
Else

Nom_Forma = UF_Profil_Edit1.ListBox_Form_Intern.List(UF_Profil_Edit1.ListBox_Form_Intern.ListIndex, 0)
Dim Plage As Range
Set ws = ActiveWorkbook.Worksheets(Personne)
Set Plage = ws.Rows(10)
Set Trouve = Plage.Cells.Find(what:=Nom_Forma)
If Trouve Is Nothing Then
MsgBox ("erreur: Mode de preuve non trouv?e")
Else
chemin = ws.Cells(12, Trouve.Column).Value
If chemin = "" Then
MsgBox ("Pas de mode de preuve existante")
Else
ThisWorkbook.FollowHyperlink chemin
End If
End If
End If
End Sub