Bonsoir Patrick,
Apparamment j'ai eu un pro de réponse.
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_20060421231323.zip size=13168]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TrierRetour_20060421231323.zip[/file]