XL 2010 renvoyer la valeur d'une textbox dans une autre textbox en fonction de la valeur d'une combobox

Bonjour à tous,

étant un novice en vba, je cherche à améliorer un code qui me semble très lourd.

Je cherche à renvoyer la valeur numerique d'une textbox dans une autre textbox en fonction de la valeur texte d'une combobox

voici le code dans la userform :
Private Sub calcul()
If ComboBox2.Value = "Alimentation stock boisson" Then
TextBox11 = TextBox6
ElseIf ComboBox2.Value = "60281 stock" Then
TextBox12 = TextBox6
ElseIf ComboBox2.Value = "plaques stock" Then
TextBox13 = TextBox6
End If
End Sub

Private Sub TextBox6_Change()
calcul
End Sub

Private Sub TextBox11_Change()
calcul
End Sub

Private Sub TextBox12_Change()
calcul
End Sub

Private Sub TextBox13_Change()
calcul
End Sub

Merci d'avance . Antoine