rafraichissement d'une macro

Bonjour à tous,

J'ai une macro qui permet de rafraichir les données toutes les 5 Mn.
Cette macro fonctionne nickel en voici le détail :

Sub Rafraichissement_données()
DansCinqMinutes = Now + TimeValue("00:05:00")
Application.OnTime DansCinqMinutes, "Rafraichissement_données"
Call Actualisation_Données_CCS
End Sub

Je souhaite que cette macro ne fonctionne que jusqu'a 20H mais lorque je rajoute ce critère la macro ne fonctionne plus :

Sub Rafraichissement_données()
DansCinqMinutes = Now + TimeValue("00:05:00")
If DansCinqMinutes < "20:00:00" Then
Application.OnTime DansCinqMinutes, "Rafraichissement_données"
Call Actualisation_Données_CCS
End if
End Sub

Merci pour votre solution
Cdlt
Philippe