Liste déroulante excel vba

Bonjour,

Voici un petit exemple :
(a placer derrière la feuille)

En supossant que :
A5=1,B5=Premier
A6=2,B6=Second
A7=3,B7=Troisième
A8=4,B8=Quatrième

Option Explicit
'

Sub EmplirListe()
...ComboBox1.ListFillRange = "A5:B8"
End Sub

Private Sub ComboBox1_Change()

...Dim Valeur As Variant

...Valeur = ComboBox1.Column(0)

...Select Case (Valeur)
......Case 1: XfrCel (Valeur)
......Case 2: XfrCel (Valeur)
......Case 3: XfrCel (Valeur)
......Case 4: XfrCel (Valeur)
...End Select

End Sub
'
Sub XfrCel(Valeur As Variant)
...MsgBox Valeur
End Sub
'

Lupin

~L'essentiel est invisible pour les yeux~
~On ne voit bien qu'avec le coeur~