Formule Somme textbox à allégé

Bonjour,

J'ai trouvé cette formule pour additionner des textbox.

Private Sub TextBox11_AfterUpdate()
TextBox300 = Val(Replace(TextBox11, ",", ".")) + Val(Replace(TextBox14, ",", ".")) + Val(Replace(TextBox17, ",", "."))
End Sub

Private Sub TextBox14_AfterUpdate()
TextBox300 = Val(Replace(TextBox11, ",", ".")) + Val(Replace(TextBox14, ",", ".")) + Val(Replace(TextBox17, ",", "."))
End Sub

........

Cette formule me convient parfaitement, car elle recalcul des la modification d'une textbox et permet le calcul même si une ou des textbox sont vide. Donc super......😀

Mon problème est que j'ai plus de 100 Textbox à additionner, est ce que quelqu'un aurait une solution pour alléger ce code. Attention mes textbox à additionner ne se suivent pas.😱

Par avance merci.

Niepce