Bonjour

J'ai une colonne remplie de date (jj/mm/aaaa hh:mm). Je teste cellule par cellule. Lorsque la date de la cellule est supérieure à la date référence, je met 1 dans la colonne suivante sur la meme ligne, sinon je met 0

Voici le bout de code que je met :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
For Each c In Worksheets("LISTE").Range("A:A")
    Range("B:B").Select
    If c.Value > Date Then
 
        ActiveCell.FormulaR1C1 = "1"
    Else
        ActiveCell.FormulaR1C1 = "0"
    End If
Next c
Ceci ne marche pas, pouvez vous m'aider?
Je ne sais pas comment faire bien et rapide.