Sub trib()
Sheets("Feuil2").Cells.Sort Key1:=Sheets("Feuil2").Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Sheets("Feuil1").Cells.Sort Key1:=Sheets("Feuil1").Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub