[VBA EXCEL] Problème avec une barre d'outil

Bonjour!

J'ai un problème en créant une barre d'outil qui me rend fou!!

J'ai utilisé le code présent sur https://support.microsoft.com/en-us/help/161535
pour m'inspirer pour créer une barre d'outil:
-----------------------------------
Sub CreateBarrePause()

Dim Bar As Object

Set Bar = CommandBars.Add

With Bar
.Name = "Pause"
.Visible = True
.Controls.Add Type:=msoControlButton

With Bar.Controls
'Sets the style of the button to text only
.Style = msoButtonCaption
.Caption = "Continue"
.OnAction = "Données2"
.Height = 30
.Width = 130
End With
End With

End Sub
--------------------------------------

Le problème est qu'au bout de quelques utilisations, excel me renvoie une erreur
"erreur d'execution '5':
Argument ou appel de procédure incorrect"

Et m'affiche en jaune la ligne
.Name = "Pause"

Je change alors le nom de la barre, et là, rebelote! au bout de 2 ou 3 utilisations, même problème!!!!

Pourriez-vous m'aider?
Merci d'avance,
Dany