Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("Dujour")) Is Nothing And _
Target.Value > 0 Then
Cancel = True
With Target
.Value = .Value - 1
.Offset(0, 1).Value = .Offset(0, 1).Value - 1
End With
End If
End Sub