ActiveSheet.Paste
WordApp.Application.Quit
Application.CutCopyMode = False
For Each cell In Range("A1:" & Range("A1").SpecialCells(xlCellTypeLastCell).Address)
On Error Resume Next
If cell.Value Like "??/??" Then cell.Value = DateSerial(Year(Date), Right(cell, 2), Left(cell, 2))
On Error GoTo 0
Next
Sheets("Feuil1").Select