Récupérer des ligne dans un autre classeur avec condition

Re,

Par contre si tu dépasse les 65000 lignes, modifie la ligne

Range("A2:F65000").ClearContents 'Efface les anciennes données

par

Range("A2:F1048576").ClearContents 'Efface les anciennes données