Incrementer ou decrementer des cellules en cliquant

Private Sub ButtonGroup_Click()
Dim Adr As String
Adr = ButtonGroup.TopLeftCell.Address
With Range(Adr)
    If .Column = 3 Then
        If .Offset(0, 1).Value > 0 Then
            .Offset(0, 1).Value = .Offset(0, 1).Value - 1
            '.Offset(0, 3).Value = .Offset(0, 3).Value - 1
        End If
    ElseIf .Column = 5 Then
            .Offset(0, -1).Value = .Offset(0, -1).Value + 1
            '.Offset(0, 1).Value = .Offset(0, 1).Value + 1
    End If
End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Intersect(ActiveCell, Range("Dujour")) Is Nothing Or Target.CountLarge > 1 Then Exit Sub
  If Target < 1 Then SpinButton1 = 0
End Sub
Private Sub SpinButton1_Change()
  Dim Bc As Byte
  If Intersect(ActiveCell, Range("Dujour")) Is Nothing Then Exit Sub
  Bc = ActiveCell
  ActiveCell = SpinButton1
  'ActiveCell.Offset(, 1) = ActiveCell.Offset(, 1) - (Bc < SpinButton1) + (Bc > SpinButton1)
End Sub