Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim emetteurs As Boolean
Cancel = False
If Not Intersect(Target, Range("B11:B367")) Is Nothing And UserForm1.Visible = False Then
If (Target.Row - 8) Mod 3 = 0 Then UserForm1.Show
End If
Cancel = True
End Sub