Bonjour, la fonction date renvoie la date d'aujourd'hui au format dateserial donc il suffit de faire un test avec un if then else.
Je ne sais pas comment se présente votre tableau mais admettons que vous ayez la colonne A contenant des dates sur n lignes :
For i = 1 to n
if cells(i,1).value>=date then
action que vous voulez faire
end if
next