Sub trier()
'-----TRIAGE DONNES TAUX1-----
Sheets("Taux1").Activate
Range("A2:A12,E2:E12").Select
Application.CutCopyMode = False
Selection.Copy
Range("A29").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Taux1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Taux1").Sort.SortFields.Add Key:=Range("B29:B39"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Taux1").Sort
.SetRange Range("A28:B39")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'-----TRIAGE DONNEES FX-----
Sheets("FX").Activate
Range("A2:A10,E2:E10").Select
Application.CutCopyMode = False
Selection.Copy
Range("A24").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("FX").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("FX").Sort.SortFields.Add Key:=Range("B24:B32"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("FX").Sort
.SetRange Range("A23:B32")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub