Sub SURTENPS_CAS_72()
' SURTENPS_CAS_72 Macro
' Macro enregistrée le 2016-02-03 par XXXX XXXXXX
'
'
Range("A9:K52").Select
Selection.Sort Key1:=Range("A9"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWorkbook.Save
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub