With shC
ii = .[b65000].End(xlUp).Row
If .FilterMode Then .ShowAllData
'Tri de la BDD par dates ascendantes
.Range("A1:S" & ii).Sort key1:=.[b1], order1:=xlAscending, Header:=xlYes, Orientation:=xlTopToBottom, _
key2:=.[A1], order1:=xlAscending, Header:=xlYes, Orientation:=xlTopToBottom, _
key3:=.[C1], order1:=xlAscending, Header:=xlYes, Orientation:=xlTopToBottom
End With