Menu perso

Bonjour toutes et à tous,

Avec le code suivant j ai créé un menu FACTURE
J aimerai savoir comment on peut ajouter un séparateur entre les lignes
Nouvelle et Charger
J'ai bien vu que c'était possible mais je ne connais pas le code pour
le réaliser.

Merci à vous

CODE :

Private Sub Workbook_Open()
Dim BARFAC As CommandBarControl
Dim FAC1 As CommandBarControl
Dim FAC2 As CommandBarControl

On Error Resume Next

'Barre FACTURE

Set BARFAC = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
With BARFAC
.Caption = "FACTURE"
End With

Set FAC1 = BARFAC.Controls.Add(msoControlButton, , , , True)
With FAC1
.Caption = "Nouvelle"
.Style = msoButtonIconAndCaption
.OnAction = "MacroFacCha"

End With

Set FAC2 = BARFAC.Controls.Add(msoControlButton, , , , True)
With FAC2
.Caption = "Charger"
.Style = msoButtonIconAndCaption
.OnAction = "MacroFacCha"
End With

End Sub