Sub Bt_test()
'
' Désactiver la mise à jour de l'écran
Application.ScreenUpdating = False
' Bouton_Ouverture du fichier 01_MT41_Canevas_Offre_reservoir.xltm
Workbooks.Open Filename:= _
"M:\Versions_Office_2010\test.xltm" _
, Editable:=True
Windows("Menu.xlsm").Activate
' Bouton pour fermer l'offre
ActiveWorkbook.Close
' Réactiver la mise à jour de l'écran
Application.ScreenUpdating = True
End Sub