Option Explicit
Private Plg As Range ' La plage
Private Sub UserForm_Initialize()
Dim c As Range
Set Plg = Range("D1:D6") ' La plage
For Each c In Plg
Me.ComboBox1.AddItem Format(c, c.NumberFormat) ' Le format
Next c
End Sub
Private Sub ComboBox1_Click()
ActiveCell.Value = Me.ComboBox1.Value
Unload Me
Me.ComboBox1.Clear
End Sub