Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
DernLig = Cells(Rows.Count, "j").End(xlUp).Row
If Not Application.Intersect(Target, Range(Cells(3, "j"), Cells(DernLig, "j"))) Is Nothing Then Target = "c'est bon"
End Sub