Private Sub CommandButton6_Click()
Dim arCTRL, i%, no_ligne&
arCTRL = Array("TextBox1", "TextBox2", "TextBox3", "TextBox4", "ComboBox1", "TextBox5", "TextBox6", "TextBox7", "Combobox2", "TextBox8")
no_ligne = ComboBox3.ListIndex + 2
For i = 0 To 9
Controls(CStr(arCTRL(i))) = Cells(no_ligne, i + 1)
Next i
End Sub