Sub Macro2()
'
' Macro2 Macro
Application.ScreenUpdating = False
Columns("A:A").Select
Selection.UnMerge
Range("B3").Select
ActiveCell.FormulaR1C1 = "x"
Range("A3:E14").Select
Selection.Copy
Range("N3").Select
ActiveSheet.Paste
ActiveWorkbook.Worksheets("Classement").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Classement").Sort.SortFields.Add Key:=Range( _
"Q4:Q14"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Classement").Sort
.SetRange Range("N3:R14")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A17:E25").Select
Selection.ClearContents
Range("N3:R14").Select
Selection.Copy
Range("A17").Select
ActiveSheet.Paste
Range("N:Q").Clear
End Sub