Bonjour
Un essai avec une fonction personnalisée.
Cela te convient-il ?
Option Explicit
Dim m&, mois, j&, an&
Function ConvertDate(cell As Range)
Application.Volatile
mois = Array("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December")
For m = 0 To 11
If Split(cell, " ")(0) = mois(m) Then
Exit For
End If
Next m
If m < 12 Then
an = Right(cell, 4)
j = Mid(cell, Len(mois(m)) + 2, Len(cell) - Len(mois(m)) - 7)
ConvertDate = DateSerial(an, m + 1, j)
Else
ConvertDate = "# date"
End If
End Function
Bye !