Bonjour,
Ci dessous macro qui enregistre la feuille active dans le répertoire E:\\...\\ sour le nom de T'contenu_cellule_A1'.BAT.
Evidemment vous pouvez choisir une autre extention.
ActiveWorkbook.SaveAs Filename:='E:\\DONNEES\\COMMUN\\TDB\\T' & Range('A1') & '.BAT', _
FileFormat:=xlText, CreateBackup:=False