Récupérer valeur combobox

Bonjour,

Après avoir passé beaucoup de temps à chercher des infos sur les différents forums, je n'arrive toujours pas à m'en sortir.

Mon idée était de créer un combobox puis, de stocker la réponse sélectionner dans une variable de type string mais je n'arrive pas à récupérer cette valeur...

Voici le code (pas forcément optimal) qui me permet de créer ma liste et d'afficher la valeur sélectionné

Private Sub UserForm_Initialize()
    Dim Cel As Range
    Dim plage As Range
    Range("A1").Select
    Set plage = Range(Selection, Selection.End(xlToRight))

    For Each Cel In plage
        Me.ComboBox1.AddItem Cel.Value
    Next Cel

End Sub

Private Sub CommandButton1_Click()
    MsgBox Me.ComboBox1.Text
    Unload Me

End Sub

Celui pour afficher ma liste

Sub AfficheListe()
'
' AfficheListe Macro
'

'

    Liste.Show

End Sub

Et le code dans lequel j'aimerai stocker ma réponse dans une variable

Sub Choix()
    Dim VariableInit As String
    Dim VariableRetour As String

    MsgBox "Choisir la variable pour " & VariableInit & " dans la liste suivante :"
    Call AfficheListe
                                          ..............................
    'Je n'arrive pas à récupérer la valeur choisie dans ma combobox dans la variable 'VariableRetour'

End Sub

Je vous remercie par avance de l'aide que vous pourrez m'apporter

Amicalement,

Bonjour,

Un exemple de traitement :

A+

Merci beaucoup de la qualité et de la rapidité de ta réponse Frangy.

Je débute sous Excel et mon erreur était de ne pas déclarer ma variable réponse en public. Avec cela, ça fonctionne parfaitement.

Encore Merci!