Comment puis-je m'en sortir?

[un internaute]

Bonjour le forum,
J'ai dans ThisWorkbook 2 fois la macro ci-dessous:
Pour faire revenir en cellule A1 à l'enregistrement

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
[A1].Select
End Sub

Et une 2ème fois:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error Resume Next
ThisWorkbook.VBProject.References _
.AddFromGuid "{0002E157-0000-0000-C000-000000000046}", 5, 0
End Sub

Et ça "gueule" évidemment.
J'ai mis en commentaires la 2ème macro donc ça va.
Y a t-il une solution pour ce genre de problème?
Merci à vous pour vos éventuels retours

 

[phlaurent55]

Bonjour,

La solution: Mettre toutes les lignes de code dans une seule procédure

À+
Philippe

 

[un internaute]

Bonjour phlaurent55
Oui effectivement ça n'a pas l'air de perturber le "système".
Merci à toi
Bonne fin de journée
Cordialement