Bonjour et merci pour le retour,
Je ne suis pas un pro, mais peut-être que le problème vient de cette ligne:
ActiveWorkbook.SaveAs Filename:=xlnom_cheminFichier, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=True
Essaies en mettant False au lieu de True....
Cordialement,