Private Sub ComboBox2_Change()
If Me.TextBox2 <> "" Then 'signifie aussi: aucune ligne sélectionnée dans la Listbox
Me.TextBox3.Value = ComboBox2.List(Me.ComboBox2.ListIndex, 1)
Me.TextBox9.Value = ComboBox2.List(Me.ComboBox2.ListIndex, 2)
Else
Me.ComboBox2="": Me.TextBox3 = "": Me.TextBox9 = ""
MsgBox "Sélectionnez la ligne à modifier.", vbCritical, "ERREUR DE MANIPULATION"
End If
End Sub