Aide pour finir macro

[Noeste]

Bonjour à tous le forum,

Voilà j'ai commencé une macro qui pour l'instant me permet d'ouvrir plusieurs classeurs contenant chacun un tableau sur le même format :

Public Sub Importation()
Dim varReturn As Variant, intloop As Integer
varReturn = Application.GetOpenFilename(, , , , True)
If TypeName(varReturn) = 'Boolean' Then Exit Sub
If TypeName(varReturn) = 'String' Then
Workbooks.Open CStr(varReturn)

Else
For intloop = 1 To UBound(varReturn) Step 1
Workbooks.Open CStr(varReturn(intloop))

Next intloop
End If

End Sub

Maintenant que mes classeurs sont ouverts je voudrais copier les données de mes tableaux sur une seule feuille suivant ce principe : toutes les données du classeur A à partir de la cellule A1, toutes les données du classeur B à partir de la cellule M1, toutes les données du classeur C à partir de la cellule Y1, etc...

J'aimerais utiliser le code ActiveSheet.UsedRange.Select
mais je bloque pour l'ajouter à mon début de macro !

Si quelqu'un pouvait me dépanner ...