Lancer une macro lorsque une cellule contient une valeur précise

Option Explicit
'dans le module feuille concerné
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$L$3" Then
        If LCase(Target) = "valider" Then Call validez
        If LCase(Target) = "effacer" Then Call effacez
    End If
End Sub
'----------------------------------------------
'dans  un module standard
Sub validez()
    MsgBox "Validation"
End Sub

Sub effacez()
    MsgBox "effacement"
End Sub