Option Explicit
Private Sub Worksheet_selectionChange(ByVal Target As Range)
Dim Cel As Range
For Each Cel In Feuil1.Range("B6:F20")
If Cel.Offset(0, -1) = "NUI" Then Cel = "DN"
Next Cel
End Sub
=SI(A6="NUI";"DN";"")
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cel As Range
For Each Cel In Feuil1.Range("B6:AF20")
If Cel.Offset(0, 1) = "DN" Then Cel.Offset(0, 1) = ""
If Cel.Offset(0, -1) = "NUI" Then Cel = "DN"
Next Cel
End Sub