Sub Macro()
Dim Cell As Range, Chaine As String
For Each Cell In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
On Error Resume Next
Chaine = Split(Cell.Text, " ")(UBound(Split(Cell.Text, " ")))
If IsDate(CDate(Chaine)) Then
Cell.Offset(, 1).Value = CDate(Chaine)
End If
Next
End Sub