Sub AfficherHelp()
On Error GoTo Fin
'Message doit contenir la liste des messages dans l'ordre.
'Le premier pour #1, le second pour #2 ....
Message = Array( _
"Ceci est le message 1", _
"Ceci est le message 2", _
"Ceci est le message 3", _
"Ceci est le message 4", _
"Ceci est le message 5" _
)
Titre = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text ' Extrait le mot contenu dans le bouton
Numéro = Val(Split(Titre, "#")(1)) ' Extrait le N° qui est dans le bouton
MsgBox Message(Numéro - 1), , Titre ' Affiche le message
Fin:
End Sub