Sub Laurent()
Dim WS As Worksheet
Set WS = ActiveSheet
Dim tbl() As Variant
tbl = Array("Metropole 33", "988 Nouvelle-Calédonie 687", "987 Polynésie française 689", _
"974 La Réunion 262", "973 Guyane 594", "972 Martinique 596", "971 Guadeloupe 590", 0) '"",
' Les valeurs
ReDim Preserve tbl(UBound(tbl) - 1)
' La Liste Box
Dim oCombo As OLEObject
Dim L As Single, H As Single, T As Single, W As Single
L = ActiveCell.Offset(, 1).Left '<-- position horizontale
T = ActiveCell.Top '<-- position verticale
W = 202 '<-- largeur
H = 15 '<-- hauteur
' Si la liste existe
For Each oCombo In WS.OLEObjects
If oCombo.progID = "Forms.ComboBox.1" Then
If oCombo.Name = "Combo1" Then
oCombo.Delete
End If
End If
Next
' Creation de la liste de choix
Set oCombo = WS.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Left:=L, Top:=T, Width:=W, Height:=H)
With oCombo
.Name = "Combo1" '<-- nom du Combobox
.Object.List() = tbl '<-- exemple de chargement des données
.Activate
.Object.DropDown
End With
Set oCombo = Nothing
End Sub