Recuperation d'un caption

Bonjour à toutes et à tous,

Dans un fichier d'enregistrement de mouvements financiers, j'ai une barre
d'outils qui se crée à chaque ouverture de ce fichier.
Le premier bouton est un popup (msoControlPopup) intitulé (Caption)
"SAISIE".
A l'aide d'une boucle, je crée les 12 boutons (msoControlButton)
correspondant aux 12 mois de l'année.
Le onAction de chacun de ces boutons permet d'accéder à la feuille du mois
concerné (une feuille par mois).
Pour ce faire, j'ai actuellement 12 macros.
Cela fonctionne parfaitement, cependant, je souhaiterais alléger mes
modules, d'où ma question :
Y a-t-il un moyen de ne créer qu'une seule macro de déplacement qui
récupérerait le caption du bouton appelant et permettant le positionnement
sur la feuille ainsi appelée ?

Je pense à quelque chose comme :

Sub Déplacement ()
Sheets("Caption appelant").Visible = True
Sheets("Caption appelant").Select
Range("o65536").End(xlUp).Select
ActiveCell.Offset(-2, -1).Select
Application.Goto reference:=ActiveCell, scroll:=True
End Sub

Je reformule ma question :
Que dois-je indiquer à la place de "Caption appelant" pour que cela
fonctionne.

Je travaille avec Excel XP sous Windows XP

Merci d'avance de vos suggestions.

Bien amicalement

Michel