Sub convertirDate()
' convertir un texte en format jj/mm/aaaa en véritable valeur de date
Dim c As Range
For Each c In Selection
t = c.Value
If IsDate(t) Then
j = Left(t, 2)
m = Mid(t, 4, 2)
a = Right(t, 4)
c.Value = DateSerial(a, m, j)
End If
Next
End Sub