Merci Steelson
Ca fonctionne à merveille!
En revanche j'ai juste modifié cette ligne
ladate = DateSerial(Mid(Cells(i, j).Value, 7, 4), Mid(Cells(i, j).Value, 4, 2), Mid(Cells(i, j).Value, 1, 2))
carle format de la fonction DateSerial est (year, month, day)
Encore merci!