Sub TexteEnDateHeureA()
t = Range("C9:C22").Value2
For i = 1 To UBound(t)
If Not IsNumeric(t(i, 1)) Then t(i, 1) = DateValue(Split(t(i, 1))(0)) + TimeValue(Split(t(i, 1))(1))
Next i
Range("C9:C22").NumberFormat = "dd/mm/yyyy hh:mm:ss"
Range("C9:C22") = t
End Sub