Private Sub Worksheet_Activate()
Me.[3:500].ClearContents
Me.[D3].Value = 2
Me.[D4].Value = 4
Feuil1.[A3:B498].Copy Me.[A5]
Me.[E5:E500].FormulaR1C1 = "=MATCH(RC1,{""Orange"";""Bleu"";""Rouge"";""Gris"";""Turquoise"";0},0)"
Me.[D5:D500].FormulaR1C1 = "=IF(ISNUMBER(RC[1]),MIN(MAX(3,RC[1]),4)*2-3,1)"
Me.[A3:E500].Sort Key1:=Me.[D3], Order1:=xlAscending, Key2:=Me.[B3], Order2:=xlDescending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
Me.[D3:E500].ClearContents
End Sub