CommandBarCombobox

Bonsoir tout le monde,

J'aimerais savoir comment gerer les changements d'evenement dans une combobox intégrée a une barre d'outil.

Voila par exemple ce que j'ai fait:

Sub Barre_d_outil()

Set Choix_Profil_fonds = CommandBars.Add(Name:="Choix du profil", Position:=msoBarFloating, Temporary:=True)
Choix_Profil_fonds.Visible = True


Set Listeprofil = Choix_Profil_fonds.Controls.Add(Type:=msoControlComboBox)
With Listeprofil
.AddItem "Profil Dynamique", 1
.AddItem "Profil Equilibre", 2
.AddItem "Profil Défensif", 3
.DropDownLines = 38
.DropDownWidth = 180
.ListIndex = 0

End With


End Sub


Private Sub Listeprofil_Change(ByVal ListIndex As Office.CommandBarComboBox)


Select Case Listeprofil.ListIndex
Case Is = 1
ProfilDynamique
End Select


End Sub

Private Sub ProfilDynamique()
Sheets("SELECT DYN-ALLOC").Select
Cells(1, 1).Select
End Sub