Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim vFichier As String, vChemin As String
vChemin = "D:\chemin\blablabla"
nom = Cells(Target.Row, 1)
appareil = Cells(Target.Row, 8)
inter = Cells(Target.Row, 6)
revendeur = Cells(Target.Row, 7)
marque = Cells(Target.Row, 9)
vFichier = vChemin & nom & " " & appareil & " " & inter & " " & revendeur & " " & marque
modif = MsgBox("Tu veux ouvrir cette fiche client ?", vbYesNo, "Modification Fiche")
If modif = vbYes Then
Workbooks.Open Filename:=(vFichier)
End If
If modif = vbNo Then
Exit Sub
End If
End Sub