Private Sub cmdVld_Click()
With ComboBox1
If .ListIndex > -1 Then MsgBox .Value
End With
Unload Me: ActiveCell.Select
End Sub
Private Sub UserForm_Initialize()
ComboBox1.List = Array("jan", "fév", "mars", "avr", "mai", _
"juin", "juil", "août", "sept", "oct", "nov", "déc")
End Sub