Sub BoucleFichiers()
Dim Chemin As String, Fichier As String
'Répertoire contenant les fichiers
Chemin = "C:\Exports\"
'Boucle sur tous les fichiers xls du répertoire.
Fichier = Dir(Chemin & "*.xls")
Do While Len(Fichier) > 0
'Si "A2" du fichier ouvert est vide alors on le referme pour passer au fichier suivant
'Si "A2" <> copier toutes les lignes à partir de "A2" pour les coller sur la feuille active du document contenant
'la macro (après la dernière ligne non vide) + déplacer le fichier dans un répertoire "Done" et passer au fichier suivant
Fichier = Dir()
Loop
End Sub