Fonction Back d'un fureteur en Excel ?

Sub Renvoie()
Dim h As Object
For Each h In Sheets("Feuil1").Hyperlinks 'nom de feuille à adapter
 If InStr(h.SubAddress, ActiveCell.Address(0, 0)) Then _
   Application.Goto h.Parent: Exit Sub
Next
End Sub

Sub Renvoie()
Dim h As Object
For Each h In Sheets("Feuil1").Hyperlinks 'nom de feuille à adapter
 If h.SubAddress = "Aide!" & ActiveCell.Address(0, 0) Then _
   Application.Goto h.Parent: Exit Sub
Next
End Sub

Sub Renvoie()
Dim h As Object
For Each h In Sheets("Feuil1").Hyperlinks 'nom de feuille à adapter
 If h.SubAddress = ActiveSheet.Name & "!" & ActiveCell.Address(0, 0) Then _
   Application.Goto h.Parent: Exit Sub
Next
End Sub

Sub Renvoie()
Dim w As Worksheet, h As Object
For Each w In Worksheets
  For Each h In w.Hyperlinks
    If h.SubAddress = ActiveSheet.Name & "!" & ActiveCell.Address(0, 0) Then _
      Application.Goto h.Parent: Exit Sub
  Next
Next
End Sub

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Feuil = Sh.Name
Cel = Target.Parent.Address
End Sub

Public Feuil As String, Cel As String
Sub Bouton1_QuandClic()
    Sheets(Feuil).Activate
    Range(Cel).Select
End Sub

Public Feuil As String, Cel As String

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    If  Feuil   <> "" Then Application.Goto Sheets(Feuil ).Range(Cel)
End Sub