Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
If Target.Count > 1 Or Target = "" Then Exit Sub
If Not Intersect(Target, [A:A]) Is Nothing Then
On Error Resume Next
Sheets(CStr(Target)).Select
End If
Fin:
End Sub
Je vous remercieBonjour Khoury...,
Tu peux facilement mettre des liens (click droit et Lien>dans ce fichier)
Je viens de faire ce fichier avec macro c'est peut être le bon moment pour y passer
Il te faut donc activer les macros 1 fois sur ce fichier et faire un double click sur une réf et hop.
A savoir les macros offre de nombreuses choses.
Bruno