Sub test()
Dim Chemin As String, Fich As String, Ligne As Long, Tabl1 As Variant, Tabl2() As Double
Dim Wbk As Workbook, I As Long
Chemin = "D:\Users\dcola\Documents\Donnees\Daniel\mpfe\ChristianJ\Fichier FR"
Application.ScreenUpdating = False
Fich = Dir(Chemin & "\*.xlsx")
Do While Fich <> ""
Set Wbk = Workbooks.Open(Chemin & "\" & Fich)
With Wbk.Sheets(1)
Tabl1 = Application.Transpose(.Range("A2", .Cells(.Rows.Count, 1).End(xlUp)))
Ligne = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp)).Rows.Count
ReDim Tabl2(Ligne, 1)
For I = 1 To UBound(Tabl1)
Tabl2(I - 1, 0) = Int(Tabl1(I))
Tabl2(I - 1, 1) = Tabl1(I) - Int(Tabl1(I))
Next I
.Columns(2).Insert
.[A2].Resize(Ligne, 2) = Tabl2
.Columns("A:A").NumberFormat = "m/d/yyyy"
.Columns("B:B").NumberFormat = "hh:mm:ss"
.Range("A1") = "Date"
.Range("B1") = "Heure"
End With
Wbk.Close True
Loop
Application.ScreenUpdating = True
End Sub