Bonsoir,
une proposition en forçant le changement entre mois et jour :
Sub MacroMiseEnPage()
Dim lRow As Long
lRow = Range("A" & Rows.Count).End(xlUp).Row
For i = 3 To lRow
Cells(i, 4) = CDate(Format(Cells(i, 1), "mm/dd/yyyy")) & " " & Cells(i, 2)
Next i
End Sub
A savoir que vos dates en colonne A ne sont pas des dates ! Elles sont alignées à gauche = alphanumérique, les dates sont des entiers correspondant à leur position depuis le 01/01/1900, donc un alignement à droite lorsque la cellule est exempt de choix d'alignement.
Le résultat de la macro se trouve sur la droite de la colonne, on est bien en présence d'un entier pour le jour et d'une décimale pour les heures.
@ bientôt
LouReeD