recuperer valeur d'une combobox

Function RecupValeur()
   On Error Resume Next
   RecupValeur= CommandBars("NomDeLaBarreOutils").Controls(IndexDucombo).Text
End Sub

Sub RecupValeur(Optional Truc As String)
On Error Resume Next
'Le paramètre truc n'est là que pour éviter que la macro s'affiche dans la liste des macro(ALT+F8)
'CommandBars.ActionControl référence le dernier objet de barre de commandes cliqué
Range("e1") = CommandBars.ActionControl.Text
End Sub
'Autre manière de faire:
'Modifier à la création de la combo la propiété .OnAction ="RecupValeur" pour mettre
'.OnAction = "RecupValeur2"
'La macro RecupValeur2 sera disponible dans la liste des macros et pourra être appelée
'autrement que sur un click de la combo pour récupérer la valeur de la combo
'par contre la propriété CommandBars.ActionControl ne marche plus alors
'c'est pourquoi il faut une autre manière de faire
Sub RecupValeur2()
    Dim maBarre As CommandBar
    Dim ctl As CommandBarControl
    On Error Resume Next
    Set maBarre = Application.CommandBars("MaBarrePerso")
    If Not maBarre Is Nothing Then
        For Each ctl In maBarre.Controls
            If ctl.Caption = "Liste des noms" Then Range("E1") = ctl.Text
        Next ctl
    End If
End Sub
Sub CreateToolbar()
    Dim Tbar As CommandBar
    Dim NewButn As CommandBarComboBox
    On Error Resume Next
    'Au cas où elle existerait déjà
    DétruireBarrePerso
    
    Set Plage = Range("feuil1!a1:a10")
    'Création de la barre de commande
    Set Tbar = CommandBars.Add
    With Tbar
        .Name = "MaBarrePerso"
        .Visible = True
    End With
    
    'Création du bouton
    Set NewButn = Tbar.Controls.Add(Type:=msoControlComboBox)
    With NewButn
        .Caption = "Liste des noms"
        .OnAction = "RecupValeur"
        For Each c In Plage
            .AddItem c.Value
        Next c
        .Width = Plage.Width
    End With
End Sub
Sub DétruireBarrePerso()
On Error Resume Next
Application.CommandBars("MaBarrePerso").Delete
End Sub