Sub test1()
Dim C As Range, Var As Variant
For Each C In Selection
On Error Resume Next
Var = Split(Format(C.Text, "0.00"), ".")
C.Value = TimeValue(Var(0) & ":" & Var(1))
C.NumberFormat = "hh:mm"
Next C
End Sub
[/CODE
Cordialement.
Daniel
[/QUOTE]
Bonjour Daniel, Meilleurs Voeux
Merci de votre aide, mais pour le coup mes connaissances ne sont pas assez Pointues... Je ne sais pas s utiliser la macro hic..