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