Barre d'outils personnalisée

Bonjour.

J'ai créé une barre d'outils personnalisée en m'appuyant sur des fils trouvés ça et là, mais je ne parviens pas à trouver ce qui cloche.

Le tag de mon bouton (il n'y en a qu'un seul) ne s'affiche pas le moins du monde !

De plus, j'ai écrit le code dans ThisWorkbook de mon personal.xlsb et lorsque j'ouvre un fichier excel, le menu personnalisé apparaît bien (sans le tag du bouton) et fonctionne parfaitement.

Par contre, quand je fais un pas à pas de ce code, j'ai une erreur:

"Argument ou appel de procédure incorrect" sur la fonction Set de ma CmdBar.

Private Sub Workbook_Open()
    Dim CmdBar As CommandBar
    Dim choixColonnes As CommandBarButton

    'Création de la barre d'outils nommée 'MaBarrePerso'
    Set CmdBar = Application.CommandBars.Add(Name:="Choix colonnes", Position:=msoBarTop, Temporary:=True)

    'Ajout d'un bouton choixColonnes dans la barre d'outils
    Set choixColonnes = CmdBar.Controls.Add(Type:=msoControlButton)
    With choixColonnes
              .FaceId = 481  'Définit "l'image" qui va s'afficher sur le bouton
        .Tag = "Choix des colonnes" 'nom du bouton
        'Définit quelle macro est associée au bouton. Cette macro sera lancée à chaque fois que l'on clique
        'sur le bouton.
        .OnAction = "USFChoixColonnes"
        .Caption = "Permet de lancer une fenêtre de sélection des colonnes à masquer ou à afficher"
    End With

    CmdBar.Visible = True
End Sub

Qu'en pensez-vous ?

Merci d'avance.

Cordialement.

Bonjour,

Tag ne définit pas le nom du bouton.

Tag ne définit pas le message bulle qui s'affiche.

Le message bulle qui s'affiche est le nom de la macro qui est lancé par le bouton.

Ce message ne peut pas être modifié par le code. (à ma connaissance !)

A+