Essaye ça :

Sub Offre_type_test()
Dim DocWord As Word.Document

Set DocWord = GetObject("C:\Users\geo\Desktop\V2.4\Offre Type.docx")
DocWord.Application.Visible = True...