Rowfin = Range("C65536").End(xlUp).Row
Range("A1:G" & Rowfin).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=6, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
NbFermé = WorksheetFunction.CountIf(Range("E:E"), "Fermé")
Range("A1:G" & NbFermé + 1).Sort Key1:=Range("E2"), Order1:=xlAscending, Key2:=Range("D2") _
, Order2:=xlDescending, Header:=xlGuess, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
Range("A" & NbFermé + 2 & ":G" & Rowfin).Sort Key1:=Range("C6"), Order1:=xlDescending, Header:=xlGuess, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal