Salut djKev,
Salut l'équipe,
ainsi peut-être ?
Private Sub chkOK_Click()
'
Cells.Validation.Delete
Range("A5:C5").Value = IIf(Me.chkOK.Value = True, "OUI", "")
'
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
Cells.Validation.Delete
If Not Intersect(Target, Range("A5:C5")) Is Nothing And Me.chkOK.Value = 0 Then _
Target.Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=("OUI,NON")
'
End Sub
A+