Probleme de macro qui ne va pas "chercher" tous les fichiers

Bonjour,


Débutante en macro, je cherchais une macro qui puissent me copier mes 4 fichiers excel avec un nombre de colonnes identiques mais un nombre de lignes différents pour les regrouper à la suite sur un seul fichier excel. j'ai trouver une macro sur ce site qui fonctionne très bien mais qui ne copie que 2 fichiers sur 4 !
je ne sais pas si c'est un probleme de memoire car le 3e fichier est trop lourd ou si c'est un probleme que je peux résoudre sur la macro..

voici la macro :

Sub regroupe()
Dim chemin As String ' classeur regroupé
Dim rep As String ' répertoire à traiter
Dim fic As String ' classeur regroupé
Dim ligne As Long ' ligne écriture
Dim nbc As Integer ' nombre de classeurs
Dim nbf As Integer ' nombre de feuilles
Dim nbl As Integer ' nombre de lignes
Dim c As Integer ' nombre de colonnes
Dim l As Long ' ligne lecture
Dim Wf As Worksheet ' feuille regroupement
Dim Wl As Worksheet ' feuille regroupée
rep = ThisWorkbook.Path & "\"
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False
On Error GoTo fin

'ChDir _
'"T:\...."
'Workbooks.Open Filename:= _
'"T:\..."


Set Wf = ThisWorkbook.ActiveSheet ' variable feuille groupe
Wf.Cells.ClearContents
nbc = 5: nbf = 3 ' initialisation variables
ligne = 1
fic = Dir(rep & "*.xml") ' recherche fichiers
While fic <> ""
If fic <> ThisWorkbook.Name Then
chemin = rep & fic ' chemin fichiers
Workbooks.Open chemin, 0 ' ouverture
Set Wl = ActiveWorkbook.Sheets(1)
nbl = Wl.UsedRange.Rows.Count
c = Wl.UsedRange.Columns.Count
If ligne > 1 Then l = 2 Else l = 1 ' une seule fois le titre
Wl.Cells(l, 1).Resize(nbl, c).Copy Destination:=Wf.Cells(ligne, 1)
ligne = ligne + nbl - l + 1
nbf = nbf + 1
ActiveWorkbook.Close SaveChanges:=False ' Fermeture du classeur
nbc = nbc + 1
End If
fic = Dir
Wend
fin:
MsgBox nbc & " classeurs regroupés avec " & nbf & " feuilles et " & ligne & " lignes"
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.DisplayAlerts = True
End Sub '



Je ne sais pas comment résoudre le problème , pouvez vous me venir en aide svp !

ps : mon 1er fichier comporte 15000 lignes
le 2e 29000 lignes
le 3e 42200 lignes
le 4e 13000 lignes