Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Cancel As Boolean)
If Intersect(R, [J5:J16]) Is Nothing Then Exit Sub
Dim L As Long, C As Long
With Feuil2
L = .[C:C].Find(R(1, -6)).Row
If IsError(Application.Match(R, .Rows(4), 0)) Then
MsgBox "Il ya un manque !", , "Oups"
Else
C = Application.Match(R, .Rows(4), 0)
.Cells(L, C) = "Ici" 'ou là ou ... pour voir
Application.Goto .Cells(L, C)
End If
End With
End Sub