Détecter la fin de fichier (EOF)

Bonjour,
J'ai plusieurs fichiers CSV, que je souhaiterai compiler dans un seul fichier excel.
Je m'explique à la dernière ligne de chaque fichier dans la colonne D il y a la mention EOF.
Je voudrais donc tester le fichier, des que l'on arrive à EOF on puisse copier le 2ème fichier à la suite.
Je ne sais pas si j'ai été clair?
Résumé: Boucle de test du fichier (EOF) et copier à la suite les fichiers dans une feuille excel.

Salut, à tester http://www.developpez.net/forums/d91...n-fichier-csv/

Merci pour la réponse.
Je débute actuellement en VBA et je n'arrive pas à adapter ce bout de code.
Une personne pourrait m'aider à intégrer une fonction pour detecter la fin d'un fichier csv et coller à la suite tout mes fichiers.
Voici mon bout de code:

Code:

---

1 2 3 4 5 6 7 8 9

Fichier = Application.GetOpenFilename If VarType(Fichier) = vbBoolean Then Exit Sub Workbooks.Open Fichier For i = Len(Fichier) To 1 Step -1 If Mid(Fichier, i, 1) = "\" Then Exit For Next shortfichier = Mid(Fichier, i + 1, Len(Fichier) - i - 4) longfichier = shortfichier & ".csv" onglet = ActiveSheet.Name

---

Merci d'avance