Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set C = Sheets("Feuil1").Columns("B").Find(What:=Target)
If Not C Is Nothing Then Cancel = True: UserForm9.WebBrowser1.Navigate ThisWorkbook.Path & "\" & "8_burostock_cat_2010.pdf": UserForm9.Show 0
End Sub