tri par type et date

ActiveSheet.Unprotect

Range("A4:N4").Select

Selection.Sort Key1:=Range("D4"), Order1:=xlAscending, Key2:=Range("A4") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
Range("A4").Select

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

merci de ton aide mais j'arrive pas a integrer ta macro dans mon fichier.
Merci d'avance