Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then 'si une cellule de la colonne numéro 2 (B) a changé
If UCase(Target) = "OUI" Then Target.Offset(0, -1) = 0 'si il y a OUI, alors, la cellule de gauche prend 0
End If
End Sub