Option Explicit
Sub TestZoneCombinée()
Dim ZCombi As DropDown
Set ZCombi = ActiveSheet.DropDowns.Add(30, 30, 100, 15)
With ZCombi
.Name = "MaZone"
.RemoveAllItems
.List = Array("1", "2", "3", "4", "5")
.OnAction = "MaZone_Change"
End With
End Sub
Sub MaZone_Change()
Dim CBX As DropDown
Dim Ma_Variable
Set CBX = ActiveSheet.Shapes("MaZone").OLEFormat.Object
Ma_Variable = CBX.List(CBX.ListIndex)
MsgBox Ma_Variable
End Sub