Private Sub BTN_Ecart_Click()
Dim i%, ta(), tb(), u, v
ta = Array(TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6, TextBox7, TextBox8, TextBox9, TextBox10)
tb = Array(, TextBox101, TextBox102, TextBox103, TextBox104, TextBox105, TextBox106, TextBox107, TextBox108, TextBox109)
For i = 1 To UBound(ta)
If ta(i).Value = "" Then Exit For
If tb(i).Value = "" Then
u = Split(ta(i).Value, ".")
v = Split(ta(i - 1).Value, ".")
tb(i).Value = Format(CDate(u(0)) - CDate(v(0)) + (-u(1) > -v(1)) / 86400, "hh:mm:ss") & "." & Format(u(1) - v(1) - 100 * (-u(1) > -v(1)), "00")
End If
Next
End Sub