Sub plus() Range("J13").Value = Range("J13").Value + 0.1 End Sub Sub moins() Range("J13").Value = Range("J13").Value - 0.1 End Sub