Pb avec Before close

[GGPS58]

Bonjour au forum,
Voilà mon soucis.
J'ai un fichier "tableau" dans lequel j'ai placé une instruction du type :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Sheets("SUIVI-OF").Range("B5:B12").Select
Selection.ClearContents
Application.ScreenUpdating = True
End sub

J'ai placé cette commande dans VBA sous "Thisworkbook".
Cela fonctionne parfaitement quand je ferme "tableau".

Mon soucis c'est lorsque que j'ai un autre fichier "Fiche" d'ouvert, et que je veux le fermer, cela plante, il cherche à exécuter les opérations relatives au fichier "Tableau". Où puis-je placé ou comment modifier ma commande pour que cela fonctionne ?
J'ai lu des pleinses pages de ce forum, mais je n'ai rien trouvé qui puisse solutionner mon soucis.

D'avance merci de votre aide

 

[Bebere]

Re : Pb avec Before close

bonjour Ggp
essaye

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
thisworkbook.Sheets("SUIVI-OF").Range("B5:B12").ClearContents
Application.ScreenUpdating = True
End sub

à bientôt