Option Explicit
Public valeur As Variant
Public Property Get uf2value()
With UserForm2
.valeur = ""
.Show
uf2value = .valeur
End With
Unload UserForm2
End Property
Private Sub CommandButton1_Click()
valeur = Me.ComboBox1.Value: Me.Hide
End Sub
Private Sub UserForm_Initialize()
ComboBox1.List = Array("Essai 1", "Essai 2", "Essai 3")
End Sub