Sub ActiveHypertexte(vMatch As Variant)
Dim vCell As String
Dim vRow As String
Dim vSheet As String
'Gestion d'erreur,
On Error Resume Next
'Recherche de la valeur saisie, dans la liste, retourne un n° de ligne
vRow = 0
vRow = Application.WorksheetFunction.Match(vMatch * 1, Sheets("Données").Range("A5:A100"), 0)
'Arrêt de la gestion d'erreur
On Error GoTo 0
If vRow > 0 Then
With Cells(vRow + 4, 2).Hyperlinks(1)
'Retourne l'adresse du lien hypertexte contenu dans la cellule
vCell = .SubAddress
[COLOR="Red"] 'Trouve la feuille en référence du lien hypertexte
vSheet = Mid(vCell, 2, InStr(1, vCell, "!") - 3)[/COLOR]
MsgBox vSheet
'Trouve la cellule en référence du lien hypertexte
vCell = Mid(vCell, InStr(1, vCell, "!") + 1)
'Changeme de feuille
Sheets(vSheet).Activate
'Active la référence de la cellule indiquée dans le lien hypertexte
Range(vCell).Select
End With
End If
End Sub