Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Columns(11)) Is Nothing And Target.Count = 1 Then
Cancel = True
If Range("A" & Target.Row).Value = "" Then Exit Sub
For lg = Target.Row - 1 To Target.Row + 1 Step 2
If Cells(lg, 3) = Cells(Target.Row, 3) And Not Cells(lg, 8) = Cells(Target.Row, 8) Then
MsgBox "Attention 2 nuances pour une même commande !"
Exit For
End If
Next
Target = Range("S1")
End If
End Sub