bonjour à tous,

voilà j'ai un souci pour placé une condition (If) dans un bloc For Each
ce que je souhaite faire c'est colorisé la date quand celle ci et inférieur a la date du jour
j'ai 2 colonne avec des dates

j'arrive pas trouver le bonne objet auquel me référer
code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
k = Worksheets("Feuil1").Range("B" & Rows.Count).End(xlUp).Row 'k égale derniere cellule remplie de la colonne B
 
        For Each Cell In Worksheets("Feuil1").Range("A2:A" & k)
            ligne = ligne + 1
 
            .ListItems.Add , , Cell
            .ListItems(ligne).ListSubItems.Add , , Cell.Offset(0, 1)
            .ListItems(ligne).ListSubItems.Add , , Format(Cell.Offset(0, 2), "dd/mm/yy")
            .ListItems(ligne).ListSubItems.Add , , Format(Cell.Offset(0, 3), "dd/mm/yy")
            .ListItems(ligne).ListSubItems.Add , , Cell.Offset(0, 4)
            .ListItems(ligne).ListSubItems.Add , , Cell.Offset(0, 5)
            .ListItems(ligne).ListSubItems.Add , , Cell.Offset(0, 6)
 
            If IsDate(Cell) Then
                Cell.Offset(0, 3).ForeColor = RGB(0, 0, 255)
            End If
 
         Next
merci pour votre aide