Sub Macro3()
With Sheets("Causeries")
.Activate
dercol = Range("A5").End(2).Column
derligne = Cells(Rows.Count, 1).End(3).Row
Range(Cells(5, 1), Cells(derligne, dercol)).Sort Key1:=Range("B6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
.Cells(Cells(Rows.Count, 1).End(3).Row, 1).Select
End With
With Sheets("Extraction")
.Activate
dercol = Range("A5").End(2).Column
derligne = Cells(Rows.Count, 1).End(3).Row
Range(Cells(1, 1), Cells(derligne, dercol)).Sort Key1:=Range("B6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
.Cells(Cells(Rows.Count, 1).End(3).Row, 1).Select
End With