[COLOR=GRAY][B][I]DANS LE MODULE DE CODE DE LA FEUILLE[/I][/B][/COLOR]
[COLOR=NAVY]Private Sub[/COLOR] Worksheet_Change([COLOR=NAVY]ByVal[/COLOR] Target [COLOR=NAVY]As[/COLOR] Range)
[COLOR=NAVY]If Not[/COLOR] Application.Intersect(Target, Columns(1)) [COLOR=NAVY]Is Nothing Then[/COLOR]
Hyperlinks.Add Anchor:=Target.Offset(0, 1), Address:="", SubAddress:= _
"'" & Target.Text & "'!A1", TextToDisplay:="Aller à la feuille " & Target.Text
[COLOR=NAVY]End If
End Sub[/COLOR]