Réponse message automatiquement avec code

Bonjour à tous,

voici mon code :

Macro2 Macro
'

'
Workbooks.Open Filename:= _
"R:\\Guillaume\Au 310715\Fichier de base.xls"

Workbooks.Open Filename:= _
"R:\\Guillaume\Au 310715\Anthony.xlsm"


Sheets("Paramètres").Select
Sheets("CA").Select

Sheets("Marge").Select
Sheets("Volume").Select


ActiveWorkbook.Save


ChDir "R:\ESPACE PERSONNEL\ANTHONY"
ActiveWorkbook.SaveAs Filename:= _
"R:\ESPACE PERSONNEL\ANTHONY\ANTHONY.xls", FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

ActiveWindow.Close

Je sais, il est pas joli joli mais ça marche ... lol par contre je voudrai éviter d'avoir à appuyer sur ok a chaque fois pour enregistrer, remplacer le fichier etc...

J'ai penser mettre le code Application.DisplayAlerts = True mais je sais pas ou le placer, j'ai essayer mais que neni rien à faire !!!

Pouvez vous m'aider svp,

Merci par avance,