Ctrl F vers un autre document Excel

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row < 5 Or Target.Row > 7 Then Exit Sub 'à adapter
Cancel = True
ThisWorkbook.FollowHyperlink [A2]
Application.Goto ActiveWorkbook.Sheets(Cells(Target.Row, 1).Text).[A1], True
Application.Dialogs(xlDialogFormulaFind).Show Cells(Target.Row, 2)
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
'crée les liens hypertexte
Dim r As Range, fichier As String
Set r = Intersect(Target, Range("A2:A" & Rows.Count), Me.UsedRange)
If r Is Nothing Then Exit Sub
fichier = ThisWorkbook.Path & "\Cible.xlsx" 'à adapter
For Each r In r 'si entrées multiples (copier-coller par exemple)
  r.Hyperlinks.Delete
  If r <> "" Then Hyperlinks.Add r, fichier
Next
End Sub

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Application.Goto ActiveWorkbook.Sheets(Target.Parent.Text).[A1], True
Application.Dialogs(xlDialogFormulaFind).Show Target.Parent(1, 2)
End Sub