Sub test2()
On Error Resume Next
For i = 6 To 32
Cells(i, 10) = Replace(Cells(i, 10), ".", "/")
Cells(i, 10) = Format(CStr(CDate(Cells(i, 10))), "dd/mm/yyyy hh:mm:ss") ' Formatage date 1
Cells(i, 10).NumberFormat = "dd/mm/yyyy hh:mm:ss"
Next i
On Error GoTo 0
End Sub