bonjour pierrejean,
quand j'ouvre mon fichier dans lequel j'ai incorporé ton dernier code, j'ai un message d'erreur et le système affiche la ligne de code suivante en anomalie:
x = Sheets('echeancier1').Range('B65536').End(xlUp).Row
merci de voir ce pb