Bonjour Dan, le forum,
essaye avec cette formule:
Range('B15:M13000').Select
Selection.Sort Key1:=Range('C15'), Order1:=xlAscending, Key2:=Range('D15') _
, Order2:=xlAscending, Key3:=Range('G15'), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range('A5').Select
Elle te permettra de faire un tri par ordre croissant sur 3 critères.....plus de trois je ne sais pas si ca marche....
bbmarcus