tri par type et date

[JB]

salut tt le monde. j'aimerais que quelqun m'aide pour faire un tri par type UC et par date dans ce fichier joint . Merci

 

[FDI]

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

 

[JB]

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