Microsoft 365 Bouton pour afficher des aides

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

Sub AfficherHelp()
    On Error GoTo Fin
    Dim Message(100)
    Message(1) = "Pour exemple, Ceci est le Message Numéro 1"
    Message(2) = "Pour exemple, Ceci est le Message Numéro 2"
    '....'
    Message(48) = "Pour exemple, Ceci est le Message Numéro 48"
    Message(49) = "Pour exemple, Ceci est le Message Numéro 49"
    Message(50) = "Pour exemple, Ceci est le Message Numéro 50"
    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), , Titre                                             ' Affiche le message
Fin:
End Sub