Rajouter 1 à une cellule grâce à un bouton / [Ajout 1 cellule du dessus]

Bonjour à tous ! j'espère que ça va ! Je suis un novice d'Excel mais j'aimerai ajouter 1 à une cellule lorsque je clique sur un bouton.

Cependant j'ai 192 cellules à faire j'aimerai ne pas les faire une à une en modifiant leur code à chaque fois. Il y a t'il un code VBA générale qui permet d'ajouter 1 à la cellule du dessus sans préciser la quel. Les boutons auraient alors tous le même code il me suffirai juste de les copier coller ;).

Je vous remercie d'avance pour votre réponse.

Cordialement.

Voici mon code VBA actuel ;

Sub Bouton3_Cliquer()

Range("B3").Value = Range("B3").Value + 1

End Sub

Sub Bouton3_Cliquer()

      ActiveCell.FormulaR1C1 = "=R[-1]C + 1"

End Sub

Bonjour

Voici ma solution

Fcyspm30 c'est pas mal merci beaucoup ! Tu penses que c'est possible que ce bouton rajoute 1 en plus à la même cellule à chaque fois que je clique ?

Fcyspm30, Bon j'ai réussi à le faire comme un grand j'ai juste modfier un bout de ton code !

Voici ma solution :

Sub test()

Dim sh As Shape
Set sh = ActiveSheet.Shapes(Application.Caller) 'recupere le bouton cliqué

Dim ligne As Long
Dim colonne As Long

colonne = sh.TopLeftCell.Column 'N° colonne du bouton
Cells(8, colonne).Value = Cells(8, colonne) + 1

End Sub

Merci beaucoup à tous pour vos réponses ! Bonne journée