Private Sub ComboBox1_Change()
Ligne = ComboBox1.ListIndex + 2
For i = 1 To 8
Me.Controls("TextBox" & i).Text = Cells(Ligne, i)
Next i
End Sub
Private Sub cmbMVALID_Click()
For i = 1 To 8
Cells(Ligne, i) = Me.Controls("TextBox" & i).Value
Next i
Unload Me
End Sub