Public Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'au double-clic dans une cellule
If Target.Value = "" Then Exit Sub 'si la cellule double-cliquée est vide, sort de la procédure
If Target.Row = 1 Then Exit Sub 'si la ligne de la cellule double-clquée est la ligne 1, sort de la procédure
Cancel = True 'empêche le mode édition 'ié au double-clic
Module11.dblclic 'lance la procédure dblclic du module11
End Sub