Sub Monte()
'touches de raccourci Ctrl+M ou F10
With ActiveSheet.Shapes("Compteur 1").ControlFormat
.Value = Application.Min(.Value + 1, .Max)
End With
End Sub
Sub Descend()
'touches de raccourci Ctrl+Maj+M ou Maj+F10
With ActiveSheet.Shapes("Compteur 1").ControlFormat
.Value = Application.Max(.Value - 1, .Min)
End With
End Sub