[FONT=Verdana][FONT=Verdana]=SUBSTITUE(SUBSTITUE(SUBSTITUE(SI(ESTERR(TROUVE("h";B7));"0:";"")&B7;"heure";":");"s";"");"minute";"")*1[/FONT]
[/FONT]
Function CONVERT(x$) As Date
x = Application.Trim(x) 'sécurité
CONVERT = Split(x, " ")(0) / 24 + Split(x, " ")(2) / 1440
End Function