Regrouper des fichiers Excel

Bonjour

J'ai plusieurs fichiers Excel dans un dossier que j'aimerais regrouper. Ils ne contiennent qu'une colonne: la colonne A.
J'y arrive mais ça ne me copie que la première cellule de chaque fichier. Or j'aimerais qu'il me colle toutes les cellules du fichier. Comment dois-je faire ?

De plus, mes fichiers contiennent plusieurs onglets: tous les fichiers ont les mêmes onglets: par exemple bleu, blanc, rouge. J'aimerais qu'il me colle les cellules de l'onglet blanc sur mon nouvel onglet blanc, pareil pour bleu et rouge. Là il le fait mais il me demande à chaque fois quel onglet je veux copier.

Merci pour votre aide

Ci-joint ma macro:

Sub regroupe() 
Dim x As Integer, nbFichiers As Integer, Y As Integer 
Dim Tableau() As String 
Dim Direction As String 
 
Application.ScreenUpdating = False 
Direction = Dir("c:\test\" ) 
 
Do While Len(Direction) > 0 
nbFichiers = nbFichiers + 1 
ReDim Preserve Tableau(1 To nbFichiers) 
Tableau(nbFichiers) = Direction 
Direction = Dir() 
Loop 
 
If nbFichiers > 0 Then 
For x = 1 To nbFichiers 
If Tableau(x) <> ThisWorkbook.Name Then 
Y = Y + 1 
With ActiveSheet.Cells(Y, 1) 
.Formula = "='C:\test\[" & Tableau(x) & "]Feuil1" & "'!" & "A1" 
.Value = .Value 
End With 
End If 
Next x 
End If 
 
Application.ScreenUpdating = True 
End Sub