condition avec cells vb

Bonjour;

je travail avec 4 colonnes:
Date banque
Aujourd’hui*
nb jours
Date accord
Situation

j'ai mis un code dans worksheet pour 2 conditions "Alerte" et "En cours" et ca fonctionne bien
j'ai mis un autre code dans le module1 pour 1 condition et ca marche aussi
je voulais rajouter un autre code :
si date accord >1 alors
Situation = "Accord"
j'ai trouver un confli entre le code de worksheet et module ca serai bien si je met tout dans le module1
merci