Private Sub Worksheet_Change(ByVal Target As Range)
Dim reponse
Application.EnableEvents = False
xLig = Target.Row
If Range("A" & xLig) = "OUI" Then
reponse = MsgBox("Are you sure?", vbQuestion + vbYesNo, "")
If reponse = vbYes Then
Range("B" & xLig & ":E" & xLig) = ""
End If
End If
Application.EnableEvents = True
End Sub