Function TexteEnDate(ByVal x As String)
Const moisTexte = "JAN FEV MAR AVR MAI JUN JUL AOU AOUT SEP OCT NOV DEC"
Dim res As Date, i&, m, t1
m = Mid(x, 3, 3): t1 = Split(moisTexte)
For i = 0 To UBound(t1)
If t1(i) = m Then Exit For
Next i
If i = UBound(t1) + 1 Then GoTo ERREUR
On Error GoTo ERREUR
res = DateSerial(Mid(x, 6, 4), i + 1, Left(x, 2))
res = res + TimeSerial(Mid(x, 11, 2), Mid(x, 14, 2), Mid(x, 17, 2))
TexteEnDate = res
Exit Function
ERREUR:
TexteEnDate = CVErr(xlErrNA)
End Function