Rendre invisible une textbox à l'ouverture du classeur

Private Sub Workbook_Open()

  Application.OnKey "{ESCAPE}", "" ' touche Echap inactive
  Application.DisplayFullScreen = True ' affichage plein écran
  ActiveWindow.DisplayWorkbookTabs = False ' onglets masqués
  ActiveWindow.DisplayHorizontalScrollBar = False 'barre de défilement masquée
  ActiveWindow.DisplayVerticalScrollBar = False 'barre de défilement masquée
  CacheBOutils ' masque les barres d'outils
  ActiveWindow.Zoom = 100
  ActiveSheet.ScrollArea = "A1:O32"
  
     
  With Me.TextBox1.Visible = False
     Me.TextBox2.Visible = False
     Me.TextBox3.Visible = False
     Me.TextBox4.Visible = False
     Me.TextBox5.Visible = False
  End With
  
  With Worksheets("KiKiFé").Me.ComboBox2
  .Select
  .Activate
  End With

End Sub

Sub CacheBOutils()
  Dim CmdB As CommandBar
  For Each CmdB In Application.CommandBars
    CmdB.Enabled = False
  Next CmdB
End Sub