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