Sub Tri()
Dim LigneMax As Long, Tourne As Long
Dim Dates() As Variant, Tempo As String
Dim Encore As Boolean
LigneMax = Range("D" & Rows.Count).End(xlUp).Row
Dates = Range("D1:d" & LigneMax).Value
Do
Encore = False
For Tourne = 1 To LigneMax - 1
If DateDiff("d", Dates(Tourne, 1), Dates(Tourne + 1, 1)) < 0 Then
Tempo = Dates(Tourne, 1)
Dates(Tourne, 1) = Dates(Tourne + 1, 1)
Dates(Tourne + 1, 1) = Tempo
Encore = True
End If
Next
Loop Until Not Encore
Range("E1:E" & LigneMax) = Dates
End Sub