Un SpinButton qui me fait tourner la tête

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C3:C4]) Is Nothing Then Exit Sub
Target.Select
LabelUXUY.Visible = False
[C6] = [ROUND(C4/C3,0)]
'nom défini masqué
ThisWorkbook.Names.Add "MaVal", IIf(IsError([C6]), "#", [C6].Value), Visible:=False
If Not IsNumeric([MaVal]) Then Exit Sub
With BoutonNbUY
  .SmallChange = 1
  .Min = [MaVal] - 10
  .Max = [MaVal] + 10
  .Value = [MaVal]
End With
End Sub

Private Sub BoutonNbUY_Change()
If IsError([MaVal]) Then [C3] = [C3] 'pour créer le nom
If Not IsNumeric([MaVal]) Then Exit Sub
[C6] = BoutonNbUY
If [C6] = 0 Then LabelUXUY = "###" Else LabelUXUY = Round([C4] / [C6])
LabelUXUY.Visible = [C6] <> [MaVal]
End Sub