Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Source As Range)
Dim r As Range, d As Single
Set r = Intersect(Source, Sh.UsedRange)
If Not r Is Nothing Then
For Each r In r 'si entrées multiples (copier coller)
If r Like "#*#+*" Then
d = Val(Replace(Mid(r, InStr(r, "+") + 1), "+", "."))
r = Int(Val(r)) / 1440 + d / 86400
End If
Next
End If
End Sub