Bonjour
dans ta macro EnvoiMail
Modifies la ligne
MonFichier = 'Arrivage' & Format(Now, 'ddmmmmyyyy') & 'à' & Format(Now, 'hh_mm') & '.xls'
Par
MonFichier = 'Arrivage' & Format(Now, 'ddmmmmyyyy') & 'à' & Format(Now, 'hh_mm') & 'numéro' & Sheets('arrivage').Range('C8') & '.xls'
Bonc ourage