Addition Dans un UserForm

[guy72]

Bonsoir et bonne année à tous,

J'ai un UserForm, avec 40 TextBox.
Les TextBox impaires sont pour des titres de 1 à 39.
Les TextBox paires sont pour des temps de 2 à 40 (mm:ss)

Je souhaiterais voir une TextBox41 avec le total du temps ("hh:mm:ss") qui s'ajoute au fur à mesure que je complète les TextBox paires.

Avoir un genre de MFC, soit une autre TextBox avec un message, soit une couleur qui change à un endroit de l'UserForm, ou autre chose qui puisse me prévenir si je dépasse (dans la TextBx41) 1h20mn.

Voici brouillon:

Private Sub CommandButton1_Click()
For i = 2 To 20 Step 2
If Me.Controls("TextBox" & i) <> "" Then
a = CDate("0:" & Me.Controls("TextBox" & i).Value)
If TextBox41 = "" Then
TextBox41 = a
Else
TextBox41 = CDate(TextBox41) + a
End If
End If
Next i
End Sub

Mais c'est fait avec un bouton, je ne souhaiterais pas de bouton.

J'espère que ce que je demande est possible
Merci de votre aide.
_________________