Bonjour,
un essai à tester, à copier dans la feuille de code de la feuille comportant la combobox1:
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
With Feuil3
If ComboBox1.Value <> "" And ComboBox1.ListIndex = -1 Then
dl = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Cells(dl, 1) = ComboBox1
ComboBox1.ListFillRange = "Feuil3!A1:A" & dl
End If
End With
ComboBox1.Value = ""
End If
End Sub
la nouvelle valeur est ajoutée en appuyant sur la touche <Entrée> quand le curseur est sur la nouvelle valeur de la combo.
A voir pour adapter l'action provoquant l'ajout.
A+