../..
mais je pensais qu'il était possible que lorsque que l'on entre une date dans la colonne date, la ligne se place automatiquement dans l'ordre chronologique, sans avoir a cliquer sur l'onglet trier A/Z du plus ancien au plus récent.
Sub Tri_Dates()
Dim Lg As Long, OldFormat As String
Application.ScreenUpdating = False
Lg = Range("B" & Rows.Count).End(xlUp).Row
OldFormat = Range("B3").NumberFormat
Range("B3:B" & Lg).NumberFormat = "0"
'Range("B3:K" & Lg).Select
Range("B3:K" & Lg).Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B3:K" & Lg).NumberFormat = OldFormat
Application.ScreenUpdating = True
End Sub