Sub OrdreHierar()
PersDiv = Sheets('Données').Cells(12, 3).Value2
With Worksheets('Personnels')
.Range(.Cells(2, 1), .Cells(PersDiv + 1, 7)).Sort _
Key1:=.Cells(2, 1), order1:=xlDescending, _
Key2:=.Cells(2, 3), Order2:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
End With
End Sub