XL 2016 Avoir un résultat en heure eminute

=SUBSTITUE(B1;"h";":")-SUBSTITUE(A1;"h";":")+SUBSTITUE(D1;"h";":")-SUBSTITUE(C1;"h";":")

Function sommetemps(a As String, b As String) As String
    Dim temps(1 To 2) As String
    Dim h(1 To 2) As Integer
    Dim min(1 To 2) As Integer
temps(1) = a
temps(2) = b

For i = 1 To 2
    h(i) = Mid(temps(i), 1, InStr(temps(i), "h") - 1)
    min(i) = Mid(temps(i), InStr(temps(i), "h") + 1)
Next i

minut = (min(1) + min(2)) Mod 60
heure = h(1) + h(2) + (min(1) + min(2)) \ 60
sommetemps = heure & "h" & minut
End Function
Function difftemps(a As String, b As String) As String
    Dim temps(1 To 2) As String
    Dim h(1 To 2) As Integer
    Dim min(1 To 2) As Integer
temps(1) = a
temps(2) = b

For i = 1 To 2
    h(i) = Mid(temps(i), 1, InStr(temps(i), "h") - 1)
    min(i) = Mid(temps(i), InStr(temps(i), "h") + 1)
Next i

Select Case min(1) - min(2)
    Case Is > 0
        minut = min(1) - min(2)
        heure = h(1) - h(2)
    Case Is < 0
        minut = min(1) - min(2) + 60
        heure = h(1) - h(2) - 1
End Select
difftemps = heure & "h" & minut
End Function