Probleme excell

Bonjour,

J'ai un probleme de macro
j'ai une colonne de dates et j'aimerais lorqu'une date d'une de ces cellules est antérieure à la date d'aujourd'hui
Elle se colore en rouge.
Voici ma pietre tentative:
Sub dates_previsionelles()

Worksheets("sheets1").Activate
r = Selection.Rows.Count
For n = 1 To r
If r.Cells(n, 42).DateValue <= Cells(1, 79).Date Value Then
r.Cells(n, 42).Color = 255
Else: Exit For
End If
Next n
End Sub

sachant que Cells(1,79) a pour valeur la date d'aujourd'hui.

Merci de votre aide