Bonjour
A tester
Du plus petit au plus grand
Range("ListeDeMouvements").Sort key1:="date", Header:=xlYes, order1:=xlAscending
Du plus grand au plus petit
Range("ListeDeMouvements").Sort key1:="date", Header:=xlYes, order1:=xlDescending
Attention : c'est xlYes et non x1yes