Sub ChangerDates()
For k = 2 To [A65000].End(3).Row
x = Cells(k, 1)
If Not IsDate(x) Then
j = Split(x, "-")(0)
mois = Split(x, "-")(1)
an = Split(x, "-")(2)
Select Case mois 'pas mis dans l'ordre désolé!!!
Case "FEB"
my = 2
Case "APR"
my = 4
Case "AUG"
my = 8
Case "DEC"
my = 12
Case "MAY"
my = 5
Case "sept"
my = 9
End Select
Cells(k, 2) = CDate(j & "/" & my & "/" & an)
Else
Cells(k, 2) = CDate(Cells(k, 1))
End If
Next
End Sub