Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim tablo
Dim pl As Range
If Target.MergeCells Then
Set pl = Target(1)
Else
Set pl = Target
End If
tablo = Range("cible")
Cancel = pl = "" = IsError(Application.Match(pl, tablo, 0))
End Sub