Copie de X classeurs dans un seul.

Bonjour le Forum,

J'espère que vous êtes en forme :

J'ai 12 classeurs contenant chacun 1 feuille.
Toutes les feuilles sont identiques.
Je souhaiterai récupérer les données des colonnes (Nom, Prénom) A et B de chaque classeur dans les colonnes (Nom, Prénom) A et B d'un 13ième classeur.

Ce code me permet de le faire pour 1 classeur.
Sub Copie()

Worksheets("Feuil1").Activate
Columns("A:B").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Selection.Copy
Range("A1").Select
ChDir "C:\WINDOWS\Bureau"
Workbooks.Open Filename:="C:\WINDOWS\Bureau\Réception.xls"
ActiveSheet.Paste
Range("A1").Select
Windows("Réception.XLS").Activate
Application.CutCopyMode = False
Range("A1").Select
Windows("Réception.XLS").Close

End Sub
J'ai essayé de faire la même chose avec un second classeur qui, lors du collage trouve la première ligne vide de la colonne A du 13ième classeur, mais je me plante.

Merci d'avance pour vos idées voire vos solutions.

Quaisako