XL 2013 Bug impression

Bonsoir

J'ai un petit petit soucis avec le bouton impression, lorsque je clique dessus, ca imprime pas de soucis mais apres au lieu de revenir au fichier excel ca revient aux macros.

Une personne peut corriger svp?

Sub IMPRESSION()
'
' IMPRESSION Macro
'

'
ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True, _
IgnorePrintAreas:=False
Application.Goto Reference:="IMPRESSION"
ActiveWorkbook.Save
Range("R21").Select
ActiveWorkbook.Save
End Sub