Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Target(1) = "" Then Exit Sub
Dim a, n As Variant, c As Range, adr$
a = Array("Feuil1", "Feuil2") 'noms des feuilles à adapter
n = Application.Match(Sh.Name, a, 0)
If IsError(n) Then Exit Sub
Cancel = True
With Sheets(a(2 - n))
.Visible = xlSheetVisible 'si la feuille est masquée
If .FilterMode Then .ShowAllData 'si la feuille est filtrée
Set c = .Cells(.Rows.Count, .Columns.Count)
Do
Set c = .Cells.Find(Target, c, xlValues, xlWhole)
If c Is Nothing Then
Exit Do
Else
If adr = "" Then adr = c.Address Else If c.Address = adr Then Exit Do
If c & c(1, 2) & c(1, 3) = Target(1) & Target(1, 2) & Target(1, 3) Then Application.Goto c: Exit Do
End If
Loop
End With
If ActiveSheet.Name = Sh.Name Then MsgBox "Pas de correspondance en " & a(2 - n)
End Sub