A la saisie d'un nouvel élément, l'appui sur la touche Entrée ajoutera ce dernier dans la liste du ComboBox...Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
With ComboBox1
If KeyCode = 13 Then
If .ListIndex = -1 And .Text <> '' Then
.AddItem .Text
.Text = ''
End If
End If
End With
End Sub