Private Sub CommandButton_Click()
Set wordapp = CreateObject("word.Application")
wordapp.documents.Open
"I:xxxxxxx\wwwwwwwww\dddddddd.dotx"
wordapp.Visible = True
End Sub
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row > 1 And Target.Column = 6 Then ThisWorkbook.FollowHyperlink Target.Value ' ligne et colonne adapter
End Sub