Pour convertir tes cellules en vrai format date, tu peux sélectionner les cellules correspondantes et faire tourner cette macro:
Sub Macro2()
Dim cel As Range
For Each cel In Selection
If IsDate(cel.Value) = False And IsEmpty(cel.Value) = False Then
Tableau = Split(cel.Value, " ")
ListeMois = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")
For m = 0 To 12
If UCase(ListeMois(m)) = UCase(Tableau(2)) Then
Tableau(2) = m + 1
Exit For
End If
Next m
cel.Value = DateSerial(Tableau(3), Tableau(2), Tableau(1))
End If
Next cel
End Sub