merci james de t'être penché sur mon cas
lorsque je double clic ça coince sur la ligne x = Application.Match(Target, Sheet2.Range("A1:A1000"), 0)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim x As Long
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("B7:Q11")) Is Nothing Then Exit Sub
x = Application.Match(Target, Sheet2.Range("A1:A1000"), 0)
Application.Goto Sheet2.Cells(x, 1), True
Cancel = True
End Sub