Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Set WordApp = CreateObject("Word.application")
Set WordDoc = WordApp.Documents.Open("le chemin complet vers ton fichier\ton fichier.doc")
WordApp.Open
'WordDoc.Close SaveChanges:=False
WordApp.Quit
Set WordDoc = Nothing
Set WordApp = Nothing
End Sub