With Worksheets("calcul")
.Range("P1:P10").Sort Key1:=.Range("P1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
end with
Sub Tri()
Sheets("Feuil2").Select 'Feuil2 : Nom de la feuille où se trouvent les données à trier
Columns("A:A").Select 'Plage sur laquelle doit porter le tri
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets("Feuil1").Select 'Feuil1 : Retour à la feuille de lancement de la macro
End Sub
claude