Bonjour alain.dutoit,
Tu dessines un bouton (avec la barre d'outils Contrôles) sur ta feuille. Double clic sur le bouton et avec clic droit sur l'onglet et visualiser le code, tu trouves :
Private Sub CommandButton1_Click()
End Sub
Il te reste à rajouter entre ces deux lignes : Range("a1") = Range("a1") + 1
pour la cellule A1.
Toujours sur la barre d'outils Contrôles tu cliques sur l'équerre pour fermer le mode édition.
Bonne journée.
Jean-Pierre