Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C4:D23,C27:D47,C53:D68")) Is Nothing Then
If MsgBox("Voulez vous supprimer la ligne sélectionnée?", 36, "Confirmation") = vbYes Then
Target.EntireRow.Delete
End If
End If
End Sub