Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(ActiveCell, Range("C8:F11")) Is Nothing Then
Dim MaLigne&, MaCellule$
MaLigne = ActiveCell.Row
MaCellule = ActiveCell.Address
With ActiveCell.Validation
.Delete
If Range("A" & MaLigne) = "d" Then
.Add xlValidateCustom, Formula1:="=OR(ISNUMBER(" & MaCellule & ")," & MaCellule & "=""***"")"
Else
.Add xlValidateList, Formula1:="OK,NG"
End If
End With
End If
End Sub