Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect([D5:D20], Target) Is Nothing Then
Application.Run "BDD2012.xlsm!LanceUserForm2"
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Workbooks("BDD2012.xlsm").Close
End Sub
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Workbooks.Open ("C:\essai\BDD2012.xlsm")
End Sub