Sub triDates()
Dim plage As Range
Dim c As Range
With Feuil1
Set plage = .Range(.Range("A4"), .Range("A" & .Rows.Count).End(xlUp))
End With
plage.Replace What:="=", Replacement:="", LookAt:=xlPart
plage.Replace What:="""", Replacement:="", LookAt:=xlPart
For Each c In plage
If IsDate(c.Text) Then c = DateValue(c.Text)
Next c
Set plage = plage.Resize(, 5)
Debug.Print plage.Address
plage.Sort Key1:=plage.Range("A1"), Order1:=xlAscending
End Sub