Liens , VBA...

Bonjour à toutes et tous
Je sollicite votre aide pour un casse tète qui me perturbe depuis hier.
J'ai deux classeurs (A.xlsm et B.xlsm) qui communiquent entre eux par des boutons affectés a des codes.

Dans le classeur A le code du bouton :

Private Sub CommandButtonA_Click()
Application.ScreenUpdating = True
Application.WindowState = xlMinimized
USFWait.Show 0
USFWait.Repaint
chemin = ActiveWorkbook.Path
Workbooks.Open chemin & "\" & "B.xlsm"
Worksheets("graphiques").Select
Application.DisplayAlerts = False
Workbooks("A.xlsm").Save
Unload USFWait
Module11.test
Workbooks("A.xlsm").Close
Unload frmWait
End Sub

Dans le classeur B le code du bouton (image) est :

Private Sub CommandButtonB_Click()
On Error Resume Next
Application.ScreenUpdating = True
Application.WindowState = xlMinimized
USFWait.Show 0
USFWait.Repaint
chemin = ActiveWorkbook.Path
Workbooks.Open chemin & "\" & "A.xlsm"
Sheets("MENU").Activate
Application.DisplayAlerts = False
Workbooks("B.xlsm").Save
Unload USFWait
Module11.test
Workbooks("B.xlsm").Close
Unload frmWait
End Sub

Problémes:
Quand je clique sur le bouton A , la procédure est respectée, à savoir , le classeur A se ferme , l'UF « frmWait » s'ouvre puis le classeur B s'ouvre sur la Feuille « graphique »puis l'UF « frmWait » se ferme.
A partir du classeur B , quand je veux retourner sur le classeur A , je clique sur le Bouton B et la procédure inverse se lance : fermeture classeur B , puis ouverture de l'UF « frmWait », puis ouverture du classeur A puis fermeture de l'UF « frmWait ».
Jusqu'ici tout semble bien fonctionner mais c'est quand je clique à nouveau sur le bouton A pour accéder au classeur B (feuille « graphique ») que j'obtiens un message d'erreur puis Excel se FERME (Très embêtant !!!!) .
J'espère avoir été assez claire dans mes explications ( pas sure..)..
Voilà ma problématique casse tète. Merci de m'accorder un peu de votre temps .