Bonjour
mettre la function Vers_date dans un module & dans la cellule =Vers_date(A2)
Public Function Vers_date(Text)
moi = Array("JAN", "FEB", "MAR", "APR", "MAY", "JUN", "JUL", "AUG", "SEP", "OCT", "NOV", "DEC")
Jour = Split(Text, "-")(1)
Mois = Split(Text, "-")(0)
An = Split(Text, "-")(2)
For i = 0 To UBound(moi)
If moi(i) = Mois Then Tmois = i + 1: Exit For
Next i
Vers_date = DateSerial(An, Tmois, Jour)
End Function
A+
Maurice