Sub Macro2()
With Sheets("Feuil1").Cells
For i = 1 To 6
Set result = .Find(Format(Date - i, "m/d/yy"), LookIn:=xlValues)
If Not result Is Nothing Then
FirstAddress = result.Address
Range(FirstAddress).Select
ActiveCell.Offset(0, -1).Select
With Selection.Interior
.Color = 15773696
End If
Next i
End With
End Sub