Sub CopieDate()
Dim plage As Range
Dim c As Range
On Error Resume Next
With ActiveSheet
Set plage = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp)).SpecialCells(xlCellTypeConstants)
If Not plage Is Nothing Then
For Each c In plage.Cells
If IsDate(Replace(c, ".", "/")) Then
.Cells(c.Row, 1) = DateValue(Replace(c, ".", "/"))
End If
Next
End If
End With
End Sub