Ok merci,
J'ai modifié selon tes conseils, ca bugé toujours, ca venait de
Range("BL5:DS5").Select
Range(Selection, Selection.End(xlDown)).Select
Je ne sais pas pourquoi mais je pense qu'il copiait toutes les lignes même les vide... je l'ai modifié et ca fonctionne maintenant.
Merci pour tes...