Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 2 Or Target.Column = 3 Then
If Cells(Target.Row, 2) = "Vide" And Cells(Target.Row, 3) = "" Then
Range("D" & Target.Row & ":BC" & Target.Row).ClearContents
End If
End If
End Sub