Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Application.ScreenUpdating = False
With Range("D2:D" & Rows.Count)
.NumberFormat = "dd/mm/yyyy" & vbLf & "hh:mm"
.RowHeight = 15
.WrapText = False
.Sort .Cells(1), xlAscending, Header:=xlNo 'tri croissant
For Each c In .Resize(UsedRange.Rows.Count)
If IsDate(c) Then
c.RowHeight = 30
c.WrapText = True
End If
Next
.EntireColumn.AutoFit
If .ColumnWidth <...