Bonjour
@MCOTTEND ,
@chris @mapomme , le Forum
Heureux que tu aies trouvé ton bonheur !
Pour ceci
Ne t'inquiètes pas c'était pour la démo vu, qu'il y avait d'autres lignes en dessous !
En fait "B15" peut être "B500" c'est le End(xlUp) qui trouvera la dernière lignes NON-Vide ne partant du bas...
Donc si tes fichiers ont un nombre variable de ligne, tu fixes à 500 ou 100 sur la base du fichier qui a le plus de lignes... Par contre ils doivent tous démarrer à "B7" ....
Evidemment ce peut être (logiquement, si il y a une ligne d'entête en 1ère Ligne) :
Set RngSource = WS.Range("A2:A" & WS.Range("A500").End(xlUp).Row))
Bien à toi, à vous
@+Thierry