Bonjour André
Dans listbox_click avant End Sub rajoute pour chaque textbox
On Error Resume Next
total1 = Val(TextBox5) + Val(TextBox11) + Val(TextBox17) + Val(TextBox23)
TextBox29 = total1
total2 = Val(TextBox6) + Val(TextBox12) + Val(TextBox18) + Val(TextBox24)
TextBox30 = total2