Simplifier l'addition

Salut encore une fois à tous,

j'ai dans mon projet un code d'addition dont je ne sais comment le simplifier. Aidez moi à le simplifier. Merci.

Voici le code:

Private Sub TB26_Change()

TB33 = Val(TB19) + Val(TB20) + Val(TB21) + Val(TB22) + Val(TB23) + Val(TB24) + Val(TB25) + Val(TB26) + Val(TB27) + Val(TB28)

End Sub

Private Sub TB27_Change()

TB33 = Val(TB19) + Val(TB20) + Val(TB21) + Val(TB22) + Val(TB23) + Val(TB24) + Val(TB25) + Val(TB26) + Val(TB27) + Val(TB28)

End Sub

Private Sub TB28_Change()

TB33 = Val(TB19) + Val(TB20) + Val(TB21) + Val(TB22) + Val(TB23) + Val(TB24) + Val(TB25) + Val(TB26) + Val(TB27) + Val(TB28)

End Sub

Bonjour,

Le fichier qui contient la macro sera le bienvenu.

Salut à tous,

je m'en excuse de n'avoir pas joint mon projet.

Je le joint maintenant.

Merci bien à tous