macro qui affiche le VB et inversement

rebonjour
j'ai grace au forum mis en place une macro complémentaire qui me permet de référence tout nouveau classeur lors de sa création

mais à la fin de cette macro s'excute, le VB s'affiche et non pas la classeur.
Quelle pourrait etre l'instruction qui dit au VB d'activer le classeur :s.

micii ;D


Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim Fichier As String
Fichier = "\\*****\COMMUN\INIT\" & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & ".ini"
Open Fichier For Output As #1
Print #1, "\\*****\COMMUN\INIT\" & ThisWorkbook.Path & "\" & ThisWorkbook.Name
Close

End Sub