Private Sub CommandButton1_Click()
'-- si Heure Fin < Heure début c'est le lendemain , alors +1 (1="24:00")
TextBox3 = Format(IIf(CDate(TextBox1.Value) > CDate(TextBox2.Value), _
1 + CDate(TextBox2.Value) - CDate(TextBox1.Value), _
CDate(TextBox2.Value) - CDate(TextBox1.Value)), _
"hh:mm")
End Sub