=DATE(2000+DROITE(C1;2);STXT(C1;8;2);STXT(C1;5;2))
Z=Split(Z,"/")
DatRés = DateSerial(2000+Z(2), Z(1), mid$(z(0),5))
Option Explicit
Sub TexteDates()
Dim Cel As Range
For Each Cel In Selection
Cel.Value = CDate(Mid$(Cel.Value, 5))
Next Cel
End Sub
Dis-moi, sousou, j'ai placé tes lignes de commande dans la feuille et j'ai déclaré la zone "madate", mais rien ne se passe ?