Sheets(2).Select
Sheets(2).Unprotect
Rows("12:12").Select
Selection.Insert Shift:=xlDown
Range("b12").Select
Selection.Font.Bold = True
Sheets("ACCUEIL").Select
Range("s3:t3").Select
Selection.Copy
Sheets(2).Select
Range("b12").Select
ActiveSheet.Paste
Columns("B:B").Select
Range("B16").Activate
Selection.NumberFormat = "0"
Range("B12:i1000").Select
Selection.Sort Key1:=Range("B12"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets(2).Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowFiltering:=True