Erreur d'execution 5: Argument ou appel de procédure incorrect

Sub mnu_new()
'
' mnu_new Macro
' Macro enregistrée le 13/02/01 par DOMIN
'
'
    Dim myCustomBar
    Dim myControl
    
    Application.CommandBars.Add(Name:="Recopier").Visible = True
    Application.CommandBars("Recopier").Position = msoBarTop


    Set myControl = CommandBars("worksheet Menu Bar").Controls("&Edition").Controls("Recop&ier").Controls("En &bas")
    myControl.Copy Bar:=myCustomBar, Before:=1


    Set myControl = CommandBars("worksheet Menu Bar").Controls("&Edition").Controls("Recop&ier").Controls("En &haut")
    myControl.Copy Bar:=myCustomBar, Before:=2
    
    Set myControl = CommandBars("worksheet Menu Bar").Controls("&Edition").Controls("Recop&ier").Controls("À &gauche")
    myControl.Copy Bar:=myCustomBar, Before:=3


    Set myControl = CommandBars("worksheet Menu Bar").Controls("&Edition").Controls("Recop&ier").Controls("À &droite")
    myControl.Copy Bar:=myCustomBar, Before:=4

End Sub