re,
Est-ce que ceci te convient ?
A placer dans un module
Sub Trier()
Application.ScreenUpdating = False
Sheets('Feuil1').Select
ActiveSheet.UsedRange.Rows('8:' & ActiveSheet.UsedRange.Rows.Count).Select
Selection.Sort Key1:=Range('A9'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range('A9').Select
Sheets('Feuil2').Select
ActiveSheet.UsedRange.Rows('8:' & ActiveSheet.UsedRange.Rows.Count).Select
Selection.Sort Key1:=Range('A9'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range('A9').Select
Sheets('Feuil3').Select
ActiveSheet.UsedRange.Rows('8:' & ActiveSheet.UsedRange.Rows.Count).Select
Selection.Sort Key1:=Range('A9'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets('Feuil1').Select
Range('A9').Select
Application.ScreenUpdating = True
End Sub
Bonne soirée et bon Week end [file name=TrierRetour.zip size=13168]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TrierRetour.zip[/file]