OLEOBJECT - problème de valeur disparue sur perte de focus

[smotty]

Bonjour à tous,

Je vous appelle à l'aide car j'ai un fichier excel qui remplit des OleObjects sur un autre fichier Excel.
La valeur du OleObject n'apparaît que si je sélectionne l'object en question. Sauf quand j'enregistre le fichier, le ferme puis l'ouvre à nouveau.

J'aimerai que la valeur apparaisse directement sans avoir à enregistrer au préalable.

Voici le code:

Set w = CreateObject(ThisWorkbook.Path & "\GPTO\Bordereau option.xlsx")
    Set sh = w.Worksheets(1)
    
    sh.OLEObjects("CheckBox3").Object.Value = True
                               
     sh.OLEObjects("TextBox1").Object.Value = "joijazosiajzs"
        
    
    Application.Windows("Bordereau option.xlsx").Visible = True

Manque-t'il quelque chose dans mon code?

Je vous remercie d'avance pour votre aide

smotty