Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim s As String
Dim cellules As String
Dim Feuille As String
Dim lienSplit() As String
lienSplit = Split(Target.SubAddress, "!")
If UBound(lienSplit) >= 1 Then
Feuille = Replace(lienSplit(0), "'", "")
cellules = lienSplit(1)
With Sheets(Feuille)
If .Visible = False Then
.Visible = True
Application.Goto .Range(cellules)
End If
End With
Else
MsgBox ("Lien non valide... " & Target.SubAddress)
End If
End Sub