Optimisation VB

Voila en plein apprentissage du VB exel je souhaiterai optimiser mon code:

J'ai des userform avec plusieurs combobox et textbox des boutons
et je me ballade avec un code de million de page pour ce qui est de l'affectation des combobox et textbox sur ma page exel voici mon code y a t il moyen de l'optimiser ??

Voici :

Private Sub ComboBox10_Change()
Range("Feuil1!A16") = ComboBox10.Text
End Sub

Private Sub ComboBox11_Change()
Range("Feuil1!B17") = ComboBox11.Text
End Sub

Private Sub ComboBox12_Change()
Range("Feuil1!A17") = ComboBox12.Text
End Sub

Private Sub ComboBox7_Change()
Range("Feuil1!B15") = ComboBox7.Text
End Sub

Private Sub ComboBox8_Change()
Range("Feuil1!A15") = ComboBox8.Text
End Sub

Private Sub ComboBox9_Change()
Range("Feuil1!B16") = ComboBox9.Text
End Sub

Private Sub CommandButton1_Click()
Me.hide
Less
Données4meplat.show
End Sub
Private Sub ComboBox3_Change()
Range("Feuil1!A14") = ComboBox3.Text
End Sub
Private Sub ComboBox4_Change()
Range("Feuil1!B14") = ComboBox4.Text
End Sub
Private Sub ComboBox1_Change()
Range("Feuil1!A13") = ComboBox1.Text
End Sub
Private Sub ComboBox2_Change()
Range("Feuil1!B13") = ComboBox2.Text
End Sub
Private Sub CommandButton2_Click()
Me.hide
Isolant5.show
ComboBox3_Change
ComboBox4_Change
ComboBox1_Change
ComboBox2_Change
ComboBox7_Change
ComboBox8_Change
ComboBox9_Change
ComboBox10_Change
ComboBox11_Change
ComboBox12_Change
TextBox1_Change
TextBox2_Change
TextBox3_Change
TextBox4_Change
TextBox5_Change
TextBox6_Change
TextBox7_Change
TextBox8_Change
TextBox9_Change
TextBox10_Change
TextBox14_Change
TextBox15_Change
TextBox16_Change
TextBox17_Change
TextBox18_Change
TextBox19_Change
TextBox20_Change
TextBox21_Change
TextBox22_Change
TextBox23_Change
TextBox24_Change
TextBox25_Change
TextBox26_Change
TextBox27_Change
TextBox28_Change
Condition
Fora
Fora2
Fora3
Fora4
Fora5
End Sub
Private Sub TextBox1_Change()
Range("Feuil1!C13") = TextBox1.Text
End Sub
Private Sub TextBox10_Change()
Range("Feuil1!O14") = TextBox10.Text
End Sub

Private Sub TextBox14_Change()
Range("Feuil1!M15") = TextBox14.Text
End Sub

Private Sub TextBox15_Change()
Range("Feuil1!O15") = TextBox15.Text
End Sub

Private Sub TextBox16_Change()
Range("Feuil1!F15") = TextBox16.Text
End Sub

Private Sub TextBox17_Change()
Range("Feuil1!E15") = TextBox17.Text
End Sub

Private Sub TextBox18_Change()
Range("Feuil1!C15") = TextBox18.Text
End Sub

Private Sub TextBox19_Change()
Range("Feuil1!O16") = TextBox19.Text
End Sub

Private Sub TextBox2_Change()
Range("Feuil1!E13") = TextBox2.Text
End Sub

Private Sub TextBox20_Change()
Range("Feuil1!M16") = TextBox20.Text
End Sub

Private Sub TextBox21_Change()
Range("Feuil1!F16") = TextBox21.Text
End Sub

Private Sub TextBox22_Change()
Range("Feuil1!E16") = TextBox22.Text
End Sub

Private Sub TextBox23_Change()
Range("Feuil1!C16") = TextBox23.Text
End Sub

Private Sub TextBox24_Change()
Range("Feuil1!O17") = TextBox24.Text
End Sub

Private Sub TextBox25_Change()
Range("Feuil1!M17") = TextBox25.Text
End Sub

Private Sub TextBox26_Change()
Range("Feuil1!F17") = TextBox26.Text
End Sub

Private Sub TextBox27_Change()
Range("Feuil1!E17") = TextBox27.Text
End Sub

Private Sub TextBox28_Change()
Range("Feuil1!C17") = TextBox28.Text
End Sub

Private Sub TextBox3_Change()
Range("Feuil1!F13") = TextBox3.Text
End Sub
Private Sub TextBox4_Change()
Range("Feuil1!M13") = TextBox4.Text
End Sub
Private Sub TextBox5_Change()
Range("Feuil1!O13") = TextBox5.Text
End Sub
Private Sub TextBox6_Change()
Range("Feuil1!C14") = TextBox6.Text
End Sub
Private Sub TextBox7_Change()
Range("Feuil1!E14") = TextBox7.Text
End Sub
Private Sub TextBox8_Change()
Range("Feuil1!F14") = TextBox8.Text
End Sub
Private Sub TextBox9_Change()
Range("Feuil1!M14") = TextBox9.Text
End Sub