Si vous voulez que l'info se mette dans la cellule A1 de la feuille nouvellement active, alors sans bouton, en automatique avec le fait du changement de feuille :
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
ActiveSheet.Range("A1").Value = Sh.Name
End Sub
Toujours à mettre dans le module ThisWorkbook de votre fichier sous VBA.
L'inconvénient du bouton c'est que si on ne clique pas dessus il n'y a pas de mise à jour de la donnée...
Après tout dépend de la structure de votre fichier et ce pourquoi vous avez besoin de cette information.
@ bientôt
LouReeD