Sub Transforme_Datetexte_DateHeure()
Dim Valheure As Double
Valheure = Right(ActiveCell, Len(ActiveCell) - WorksheetFunction.Search(" ", ActiveCell, 1))
ActiveCell.Offset(0, 1) = CDbl(CDate(Mid(ActiveCell, 1, WorksheetFunction.Search(" ", ActiveCell, 1) - 1))) + (1 / (1 / Valheure))
End Sub