perte de l onglet complement

Private Sub Workbook_Open()
Dim bouton As CommandBarButton
On Error Resume Next
Set bouton = Application.CommandBars("Standard").Controls("Fichier Uwin")
On Error GoTo 0
If Not bouton Is Nothing Then Exit Sub
With Application.CommandBars("Standard").Controls.Add(msoControlButton)
        .Caption = "Fichier Uwin"
        .OnAction = "USF_portable"
        .FaceId = 1062
        .TooltipText = "Ctrl+u"
        .Style = msoButtonIconAndCaption
        .BeginGroup = True
'Application.MacroOptions Macro:=.OnAction, HasShortcutKey:=True, ShortcutKey:="e"
End With
End Sub