Macro sur date

Bonjour,

Code:

---

1 2 3 4 5 6 7

With .Worksheets(1) .Activate .Range("A1").Select .Paste .rows(1).delete End With

---