Private Sub cmdValidation_Click()
With Cells(ActiveCell.Row, 1)
.Value = Array("Non", "Oui")((.Value <> "Oui") * -1)
cmdValidation.Caption = Array("Valider", "Ne pas valider")((.Value = "Oui") * -1)
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
cmdValidation.Caption = Array("Valider", "Ne pas valider")((Cells(Target.Row, 1).Value = "Oui") * -1)
End Sub