Bonjour
Dans la macro listbox1_Click, mets en remarque (ou supprimes) ma ligne surlignée
Private Sub listbox1_Click()
For x = 0 To 7
Me.Controls("TextBox" & x + 1).Value = Me.ListBox1.Column(x, Me.ListBox1.ListIndex)
Next x
nl = Me.ListBox1.Column(9, Me.ListBox1.ListIndex)
With Me.TextBox1
'.SetFocus
.SelStart = 0
.SelLength = Len(.Value)
End With
Ainsi tu resteras dans la ComboBox et tu pourras rentrer les lettres suivantes