Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Address <> "$J$10" Then Exit Sub
'If Target.Column <> 10 Or Target.Row = 1 Then Exit Sub
X = Target.Left - 187 'dateur.Width
X = IIf(X < 40, (Target.Left + 187 - 100), X)
Set usf = Nothing
dateur.Top = (Target.Top - 182 + 200) - ActiveWindow.ScrollRow * 15
dateur.Left = X
dateur.Show
End Sub