Sub Macro8()
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets("Concaténation").Select
Columns("A:A").Select
Range("A58").Activate
Selection.Cut
Sheets("Feuil1").Select
Columns("A:A").Select
ActiveSheet.Paste
Sheets("Concaténation").Select
Columns("B:B").Select
Range("B53").Activate
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 16
Columns("T:T").Select
Range("T56").Activate
Selection.Cut
Sheets("Feuil1").Select
Columns("B:B").Select
ActiveSheet.Paste
Sheets("Concaténation").Select
Range("U62").Select
Selection.AutoFill Destination:=Range("U62:U64"), Type:=xlFillDefault
Range("U62:U64").Select
ActiveWindow.SmallScroll Down:=12
Columns("U:U").Select
Range("U68").Activate
ActiveWindow.SmallScroll Down:=-92
Columns("U:Y").Select
Selection.Cut
Sheets("Feuil2").Select
Columns("C:C").Select
ActiveSheet.Paste
Sheets("Concaténation").Select
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
End Sub