Option Explicit
Sub conca()
Dim i&
'Classeur1
Workbooks.Open (ThisWorkbook.Path & "\" & "Classeur1.xls")
[A1].CurrentRegion.Sort [A1], xlAscending, , , , , , xlYes
[A1].CurrentRegion.Copy ThisWorkbook.Sheets(1).[A1]
ActiveWorkbook.Close 0
'Classeur2
Workbooks.Open (ThisWorkbook.Path & "\" & "Classeur2.xls")
[A1].CurrentRegion.Sort [A1], xlAscending, , , , , , xlYes
With ThisWorkbook.Sheets(1)
[A1].CurrentRegion.Offset(, 1).Copy .Cells(1, .[IV1].End(xlToLeft).Column + 1)
End With
ActiveWorkbook.Close 0
'Classeur3
Workbooks.Open (ThisWorkbook.Path & "\" & "Classeur3.xls")
[A1].CurrentRegion.Sort [A1], xlAscending, , , , , , xlYes
With ThisWorkbook.Sheets(1)
[A1].CurrentRegion.Offset(, 1).Copy .Cells(1, .[IV1].End(xlToLeft).Column + 1)
End With
ActiveWorkbook.Close 0
End Sub