Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Byte
With ComboBox1
'ajoute l'élément saisie dans la combobox
.AddItem ComboBox1, 0
.ListIndex = 0
'supprime les items au-dela du 10ème
For i = 0 To .ListCount - 1
If i > 9 Then .RemoveItem (i)
Next i
End With
End Sub