Option Explicit
Sub Essai()
Dim dlg&, lig&: dlg = Cells(Rows.Count, 1).End(3).Row
[A1].Resize(dlg).NumberFormat = "dd mm yyyy"
[E1].Resize(dlg).NumberFormat = "hh:mm:ss"
[G1].Resize(dlg).NumberFormat = "hh:mm:ss"
For lig = 1 To dlg
With Cells(lig, 1)
If .Value <> "" Then
.Value = DateSerial(Year(.Value), Month(.Value), Day(.Value))
With .Offset(, 4)
If .Value <> "" Then .Value = TimeSerial(Hour(.Value), Minute(.Value), Second(.Value))
End With
With .Offset(, 6)
If .Value <> "" Then .Value = TimeSerial(Hour(.Value), Minute(.Value), Second(.Value))
End With
End If
End With
Next lig
End Sub