Worksheets("TRAME").Activate
Range("A1:AH64").Sort _
Key1:=Range("E1"), order1:=xlAscending, _
header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, _
DataOption2:=xlSortTextAsNumbers, _
DataOption3:=xlSortNormal