Re-,
chez moi, (2003), ce code se déclenche, même si je quitte la feuille par le biais d'un lien hypertexte.....
sous 2000, je ne sais pas...
essaie peut-être avec ce code, en supposant tes liens dans la colonne A, et que en B1, tu n'aies pas de lien hypertexte
Private Sub Worksheet_Activate()
[B1].Select
End
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Count = 1 And Target.Hyperlinks.Count Then
Application.Goto ActiveCell, True
t = Timer
Do While Timer <= t + 300
DoEvents
Loop 'boucle
Me.Select
End If
End Sub
Peut-être?