Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Cancel As Boolean)
Select Case R.Address
Case "$A$10"
R(1, 2) = 10: R(1, 3) = Date
Case "$B$10"
If R > 0 Then R = R - 1: Cancel = 1
If R = 0 Then R.Resize(, 2) = "": R(1, 0).Select 'étape à adapter, supprimer
End Select
End Sub