Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("f10")) Is Nothing Then
[f10] = "2 clics ok"
[H10].Select
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal R As Range)
If Not Intersect(R, Range("f10")) Is Nothing And R.Count = 1 Then
[f10] = "1 clic pas bon"
[H10].Select
End If
End Sub