VBA

Bonjour,

J'ai un problème. Avec la macro ci-dessous j'arrive à recopier le tableau de plusieurs onglets sur un seul onglet les un au dessous des autres. Mon problème est qu'il me recopie la moitié du tableau ou parfois le tableau entier ça dépend des onglets. Ma plage de cellule au niveau des colonnes n'es pas variable (colonne A à AB), en revanche au niveau des lignes ça peut varier sachant que parfois les premières cellules peuvent être vide.

Pouvez vous m'aider ? Merci d'avance.

La macro :

Sub Test3()
Dim CL1 As Workbook, CL2 As Workbook
Dim FL1 As Worksheet, FL2 As Worksheet
Dim Fich As Variant, i As Byte, Rep$

'Répertoire des fichiers à copier
Rep = "u:\Outillage\outillage\"
Set CL1 = ThisWorkbook

'Ajoute une feuille au classeur destiné à recevoir les données des autres classeurs
CL1.Sheets.Add
CL1.ActiveSheet.Name = "FeuilCumul"

Set FL1 = CL1.ActiveSheet 'Instance le la feuille

'Crée le tableau des fichiers du répertoire
Set Fich = Application.FileSearch

'Ouverture des fichiers du répertoire
With Fich
.LookIn = Rep
.FileType = msoFileTypeExcelWorkbooks
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
For i = 1 To .FoundFiles.Count
Set CL2 = Workbooks.Open(.FoundFiles(i))
DoEvents

'Parcours des feuilles de chaque classeur
For Each FL2 In CL2.Worksheets

'Dernière ligne où coller les données copiées dans FL2
NoLigne = FL1.Range("A1").SpecialCells(xlCellTypeLastCell).Row + 1

'Copie de la plage renseignée de chaque feuille du classeur
FL2.Range(FL2.Cells(1, 1), _
FL2.Cells(FL2.Cells(Columns(1).Cells.Count, 1).End(xlUp).Row, _
FL2.Cells(Columns(1).Cells.Count, 1).End(xlUp).Row)).Copy _
FL1.Range("A" & NoLigne)
DoEvents
Set FL2 = Nothing
Next
CL2.Close False 'fermeture du classeur copié
DoEvents
Set CL2 = Nothing
Next i
Else
MsgBox "Aucun fichier dans le répertoire " & Rep
End If
End With
End Sub