Enregist auto d'un fichier par macro

J'ai un fichier excel que je veux enregistrer sous format TXT puis revenir sur ce meme fichier excel. jusque la la macro que j'ai ecrite fontionne bien.
le souci que j'ai c'est qu'a chaque fois que je lance la macro il me demande si je veux ecrasser le fichier. comment faire pour que cela se fasse automatiquement.
merci d'avance pour vos reponses
Voici ma macro

Sheets('energie').Select
ChDir 'K:\\Process\\Perf_environnement\\Echange'
ActiveWorkbook.SaveAs Filename:= _
'K:\\Process\\Perf_environnement\\Echange\\energie.txt', FileFormat:=xlText, _
CreateBackup:=False
ActiveWorkbook.SaveAs Filename:= _
'K:\\Process\\Perf_environnement\\Echange\\bilan1_mensu.xls', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
Sheets('heure').Select
ActiveWorkbook.SaveAs Filename:= _
'K:\\Process\\Perf_environnement\\Echange\\heure.txt', FileFormat:=xlText, _
CreateBackup:=False
ActiveWorkbook.SaveAs Filename:= _
'K:\\Process\\Perf_environnement\\Echange\\bilan1_mensu.xls', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
Sheets('coefficient').Select
ActiveWorkbook.SaveAs Filename:= _
'K:\\Process\\Perf_environnement\\Echange\\coefficient.txt', FileFormat:=xlText, _
CreateBackup:=False
ActiveWorkbook.SaveAs Filename:= _
'K:\\Process\\Perf_environnement\\Echange\\bilan1_mensu.xls', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
Sheets('evenement').Select
ActiveWorkbook.SaveAs Filename:= _
'K:\\Process\\Perf_environnement\\Echange\\evenement.txt', FileFormat:=xlText, _
CreateBackup:=False
ActiveWorkbook.SaveAs Filename:= _
'K:\\Process\\Perf_environnement\\Echange\\bilan1_mensu.xls', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
Range('A1').Select