Function ExtractDate(txt$)
'La date est toujours dans un texte entre parenthèses
Dim a, i%, x$, flag As Boolean, t$, j%
a = Array("janv", "fév", "mars", "avr", "mai", "juin", "juil", "août", "sept", "oct", "nov", "déc")
ExtractDate = ""
For i = 1 To Len(txt)
x = Mid(txt, i, 1)
If x = "(" Then flag = True: i = i + 1
If x = ")" Then
For j = 0 To UBound(a)
If InStr(LCase(t), a(j)) Then t = Replace(t, a(j), "/" & Format(j + 1, "00") & "/"): Exit For
Next j
For j = Len(t) To 1 Step -1
x = Mid(t, j, 1)
If Not IsNumeric(x) And x <> "/" Then t = Left(t, j - 1) & Mid(t, j + 1)
Next j
If IsDate(t) Then ExtractDate = CDate(t)
Exit For
End If
If flag Then t = t & x
Next i
End Function