Bonjour,
Une proposition à adapter :
Cdlt
Option Explicit
Public Function Conversion_date(Valeur As String) as Date
Dim fr, en, t
Dim tmp As String
Dim i As Byte
fr = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", _
"Août", "Septembre", "Octobre", "Novembre", "Décembre")
en = Array("January", "February", "March", "April", "May", "June", "July", _
"August", "September", "October", "November", "December")
t = Replace(Valeur, ",", "")
t = Split(t, " ")
For i = 0 To UBound(en)
If en(i) = t(0) Then tmp = Replace(t(0), en(i), fr(i))
Next
Conversion_date = DateValue(t(1) & Space(1) & tmp & Space(1) & t(2))
End Function