Debogage VBA

Bonjour à tous,

Je me retrouve face à un problème de "débogage" dans ma macro et je ne vois pas comment le résoudre. Je vous mets la partie de la macro où il y a le bug, et c'est la ligne en gras où je ne comprends pas?

• ' On stocke ces données dans une feuille "Temporaire"
  Sheets("Temporaire").Activate
  Range("A1:ZZ65000").ClearContents
  [A1].Resize(Dico_boitegeo_lignes.Count) = Application.Transpose(Dico_boitegeo_lignes.Keys)
  [B1].Resize(Dico_boitegeo_lignes.Count) = Application.Transpose(Dico_boitegeo_lignes.Items)
  Application.DisplayAlerts = False
  Range("B1").Resize(Dico_boitegeo_lignes.Count).TextToColumns Other:=1, OtherChar:="|"
  Cells.EntireRow.AutoFit
  GEOBOX_DATAS = Sheets("Temporaire").Range("A1:CC" & Sheets("Temporaire").[A65000].End(xlUp).Row).Value
  Sheets("Temporaire").Visible = False
• 
  

N’hésitez pas à me dire s'il faut plus d'informations

Merci par avance!