Bonsoir olitri,
Pour répondre au problème posé, il suffit de programmer de la façon suivante l'évènement "Change" de la feuille "Worksheet" contenant le bouton :
=====================================================Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then CommandButton1.Caption = Target
End Sub
=====================================================
En remplaçant
$A$1 : par l'adresse (absolue) de la cellule contenant l'intitulé du bouton
CommandButton1 : par le nom du bouton
Cordialement.
Omicron.