Sub formalise_date()
date1 = Cells(2, 1)
jour = Val(Split(date1, "-")(0))
annee = Val(Split(date1, "-")(2))
mois1 = Split(date1, "-")(1)
Select Case mois1
Case "JAN": mois = 1
Case "FEB": mois = 2
................................
.....................
End Select
Cells(2, 5) = DateSerial(annee, mois, jour)
End Sub