Private Sub TriMenu(fin_Ligne_Menu As Long, WS_Menu As Worksheet)
With WS_Menu
With .Range("A3:F" & CStr(fin_Ligne_Menu))
.Sort Key1:=.Range("C3"), Order1:=xlAscending, Key2:=.Range("F3") _
, Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End With
End With
End Sub