Private Sub CommandButton1_Click()
derlig = Sheets("Feuil1").Range("A65536").End(xlUp).Row
Set C = Feuil1.Cells.Find(ComboBox1, LookIn:=xlFormulas, LookAt:=xlWhole)
If C Is Nothing Then
Cells(derlig + 1, 1) = ComboBox1
ComboBox1.Clear
userform_initialize
End If
End Sub