aide sur une macro

voila j'ai créer un petit programme de facture qui fonctionnais tres bien et maintenant beaucoup moins
mon but etais d'enregistrer un feuille et de rehouvrir mon classeur excell.
il enregistre bien mais me mets erreur d'execution 76 memoire insuffisante
voici ma macro.
merci d'avance
ChDir "C:\Users\anne\FACTURE\sauvegarde\STDJ1.xlsm"
Workbooks.Open Filename:= _
"C:\Users\anne\FACTURE\sauvegarde\STDJ1.xlsm"
Sheets("Edition de facture").Select
Range("B7").Select
Exit Sub

Line1:
Dim Message As String
MsgBox Message, vbOKOnly + vbInformation, "Pas de sauvegarde pour les devis"
Sheets("Edition de facture").Select
Range("C7").Select

End Sub