Application.OnTime VBA

What I want is to make it simple, I think.
Using Application.OnTime VBA, I want to put (with a button) an "Yes" (only once) in a particular cell. To keep this "Yes" for 5 seconds, then to be removed.
I tried to modify but the result obtained is not what I want.
This is VBA what I think can do that.

Please Login or Register  to view this content.

Your opinions are welcome.
Thank you.

Try it once Anka.

Please Login or Register  to view this content.

Yes. That's it!
Thanks a lot!