Range(Cells(2, 1), Cells(nblignes, nbColonnes)).Select
Selection.Sort Key1:=Cells(2, Year), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Rows("1:1").Select
Selection.AutoFilter Field:=Year, Criteria1:="=" & current_year
ActiveSheet.UsedRange.Rows("2:" & ActiveSheet.UsedRange.Rows.Count).Select