Private Sub UserForm_Initialize()
With Sheets("Feuil1")
ComboBox1.List = .Range("D1", .Range("D65536").End(xlUp)).Value
End With
End Sub
Private Sub CommandButton1_Click()
If ComboBox1.Value <> "" Then
If IsError(Application.Match(ComboBox1.Value, ComboBox1.List, 0)) Then
If MsgBox("Attention, ajout ?", vbYesNo) = vbYes Then _
ComboBox1.AddItem ComboBox1.Value
End If
End If
End Sub