Sub DatesHeures()
Application.ScreenUpdating = False
[D:D].Replace "/", "/" 'dates nombres
[E:T].Replace " ", "", LookAt:=xlPart
[E:T].Replace " ", ""
[E:T].Replace " ", ""
[E:T].Replace "h", ":" 'heures nombres
[IV1] = 24
[IV1].Copy
[E:T].SpecialCells(xlCellTypeConstants, 1).PasteSpecial _
xlPasteValues, xlPasteSpecialOperationMultiply
[IV1] = ""
[E:T].NumberFormat = "0.00"
[D:T].HorizontalAlignment = xlCenter 'centrage
[J:J,R:T].Replace ":", "h"
[O:Q].Replace ":", "H"
[A1].Select
End Sub