Sub LienHypertexte(repertoireFichiers, nomFichierComplet, ligne, colonne, texteAafficher, infoBulle)
Select Case Mid(repertoireFichiers, Len(repertoireFichiers), 1)
Case Is = "\" ' C et D racine
adresse = repertoireFichiers + nomFichierComplet
Case Else
adresse = repertoireFichiers + "\" + nomFichierComplet
End Select
With ActiveSheet
.Hyperlinks.Add Anchor:=ActiveSheet.Cells(ligne, colonne), _
Address:=adresse, ScreenTip:=infoBulle, TextToDisplay:= _
texteAafficher
End With
End Sub