Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ' Si le nombre de cellules modifiées est supérieur à 1, on sort
If Target.Count > 1 Then Exit Sub
' Si le double clique à lieu dans la plage définit
If Not Intersect(Target, Range("A2:B10")) Is Nothing Then
Cancel = True
Saisie.Show
End If
End Sub