Private Sub Worksheet_Change(ByVal Target As Range)
' Vérifier la zone de saisie
If Not Intersect(Target, Range("C:D")) Is Nothing Then
' Si l'utilisateur à supprimé la valeur
If Target.Value = "" Then
' Poser la question
If MsgBox("Voulez-vous annuler la ligne", vbQuestion + vbYesNo, "QUESTION ...") = vbYes Then
' Enpècher les évènements pour la modification
Application.EnableEvents = False
Range("C" & Target.Row & ":D" & Target.Row).ClearContents
Range("F" & Target.Row & ":G" & Target.Row).ClearContents
' Réactiver les évènements
Application.EnableEvents = True
Else
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End If
End If
End Sub