Set AppWord = New Word.Application
Application.DisplayAlerts = True
AppWord.ShowMe
AppWord.Visible = True
AppWord.Documents.Open (sheets("Feuil1").Range("A1").value) 'modifie le lien entre parenthese pour mettre le lien de ton fichier Word
AppWord.Activate