Ou encore avec une fonction perso. Code à mettre dans un module standard :
Function NombreHeures(Cel As Range) As String
Dim Tbl
Dim Semaine As Integer
Dim Jour As Integer
Dim Heure As Integer
Dim Minute As Integer
Dim Seconde As Integer
Dim I As Integer
Tbl = Split(Cel.Value, " ")
For I = 0 To UBound(Tbl)
Select Case Right(Tbl(I), 1)
Case "w": Semaine = Val(Tbl(I))
Case "d": Jour = Val(Tbl(I))
Case "h": Heure = Val(Tbl(I))
Case "m": Minute = Val(Tbl(I))
Case "s": Seconde = Val(Tbl(I))
End Select
Next I
NombreHeures = Semaine * 168 + Jour * 24 + Heure & ":" & Minute & ":" & Seconde
End Function
et à utiliser comme ceci dans Excel :
=NombreHeures(A2)