Sub recopie()
With Sheets("Feuil1")
Dim TabData() As Variant
fin = .Range("A" & .Rows.Count).End(xlUp).Row
TabData = .Range("A2:A" & fin).Value
For i = LBound(TabData, 1) To UBound(TabData, 1)
TabData(i, 1) = DateSerial(Year(TabData(i, 1)), Month(TabData(i, 1)), Day(TabData(i, 1)))
Next i
.Range("B2:B" & fin) = TabData
.Range("B2:B" & fin).NumberFormat = "dd/mm/yyyy"
End With
End Sub