Sub Retour()
ActiveWindow.SelectedSheets.Visible = False
Sheets("Choix").Select
Columns("A:M").Select
ActiveWindow.Zoom = True
Cells.Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
End Sub