Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim xdlgn As Integer, xchemin As String, WordApp As Object, WordDoc As Object
xdlgn = Range("A" & Rows.Count).End(xlUp).Row
If Not Intersect(Target, Range("L5:L" & xdlgn)) Is Nothing Then
xchemin = Range("L" & Target.Row)
Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Open("C:\" & xchemin)
WordApp.Visible = True
Range("M1").Select
Exit Sub
Else
MsgBox "La cellule ne contient aucun lien."
Range("M1").Select
End If
End Sub