Problème Workbook_BeforeClose

Bonjour chers amis,

Voilà j'ai un gros soucis avec mon fichier Excel, ce dernier contient plusieurs feuille de travail dont la 1ere est une feuille d'accueil où l'on effectue des recherches.
Je désire à la fin et à la fermeture du fichier que certaines cellules de la feuil1 soit effacées (leur contenu est supprimé).
J'ai donc placé le code VBA ci-dessous dans la feuille VBA "ThisWorkbook":

Private Sub Worksheet_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Range("B30").ClearContents
Range("B37:T80").ClearContents
Application.DisplayAlerts = True
End Sub

Le problème comme vous devez le voir est que peut importe la feuille où l'on se situe lors de la fermeture du fichier, il supprime les sélections indiquées de la feuille active, or moi je désirerai qu'il n'efface le contenu que sur la feuil1 même si on n'est pas sur cette dernière à la fermeture du fichier.

Je pense et j'espère m'être fait compris...
Si vous pouvez me détaillé le code à placer car le code présenté, même un peu bidouillé et placé dans la fiche VBA "Feuil1" correspondante, il ne marche pas... =(

Cordialement.