Bonjour
Modifies la 3éme clé de tri
Avant
Range("B10:G" & Nblg).Sort Key1:=Range("G10"), Order1:=xlAscending, _
Key2:=Range("D10"), Order2:=xlAscending, _
Key3:=Range("E10"), Order3:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal
Après
Range("B10:G" & Nblg).Sort Key1:=Range("G10"), Order1:=xlAscending, _
Key2:=Range("D10"), Order2:=xlAscending, _
Key3:=Range("C10"), Order3:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal