Private Sub UserForm_Initialize()
ComboBox1.ColumnCount = 2: ComboBox1.ColumnWidths = ComboBox1.Width - 3 & ";0"
ComboBox1.TabIndex = 0: TextBox1.MultiLine = True
ComboBox1.List = Sheets("Lexique").Range("A2:b" & Sheets("Lexique").[a65000].End(xlUp).Row).Value
End Sub
Private Sub ComboBox1_change() ' AfterUpdate()
TextBox1 = ""
If ComboBox1.ListIndex > -1 Then TextBox1 = ComboBox1.List(ComboBox1.ListIndex, 1)
End Sub
Private Sub CommandButton1_Click()
ComboBox1 = ""
End Sub