Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
[B] On error goto SORTIE
[/B]
With ActiveWindow
.ScrollRow = Range(Target.SubAddress).Row
.ScrollColumn = Range(Target.SubAddress).Column
End With
[B] SORTIE:[/B]
End Sub