Sub CreateToolbar()
On Error Resume Next
Dim Tbar As CommandBar
Set Tbar = CommandBars.Add
Set Plage = Range("Accueil!D6:D28")
With Tbar
.Name = "mabarre"
.Visible = True
End With
Set NewButn = Tbar.Controls.Add(Type:=msoControlComboBox)
With NewButn
For Each c In Plage
.AddItem c.Value
Next c
End With
End Sub