Macro format standart dates, en format dates pas reconnu

=DATEVAL(DROITE(A1;NBCAR(A1)-CHERCHE(" ";A1)))

Sub Convertir()
Dim d&, tablo, i&
d = [A65536].End(xlUp).Row
tablo = Application.Transpose(Range("A1:A" & d))
On Error Resume Next 'si toutes les valeurs ne sont pas des dates
For i = 1 To d
  tablo(i) = DateValue(Right(tablo(i), Len(tablo(i)) - InStr(1, tablo(i), " ")))
Next
With [A1].Resize(d)
  .NumberFormat = "dddd dd mmm yyyy" 'ou autre format Date
  .Value = Application.Transpose(tablo)
End With
End Sub