Macro : Ajouter date lorsqu'une cellule est remplie

Bonjour,

Et merci de vous arrêter sur mon pb.

J'ai deux colonnes A et B.
Ma colonne A peut être vide ou contenir "Yes"
Ma colonne B doit contenir la date du jour lorsque la colonne A contient "Yes"

Je souhaite qu'à chaque fois que je rajoute "Yes" à une cellule de la colonne A, la date du jour se mette en face dans la colonne B.

Pour le moment j'ai bricolé ça mais ça n'est pas super...

----------------------------------------------------------------------------
Sub Date_Validation()

Dim Derlig As Long
Derlig = Range("B" & Rows.Count).End(xlUp).Row

If Not IsEmpty(Cells(Derlig, "B")) Then
Select Case Cells(Derlig, "B")
Case Is = "Y"

Cells(Derlig, "C") = Format(Now, "dd/mm/yy")
End Select
Else
Exit Sub
End If
End Sub

----------------------------------------------------------------------------
MERCi :)