Application.DisplayAlerts=False
ThisWorkbook.Save
ChDir "Z:\documents\Outils\COTATEUR\ARCHIVES COTATIONS\"
ActiveWorkbook.SaveAs Filename:="Z:\documents\Outils\COTATEUR\ARCHIVES COTATIONS\" & [E1].Value & " " & Format([F1].Value, "yyyymm") & " " & [G1] & ".xls", FileFormat:=xlNormal
Application.DisplayAlerts=True