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
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