Private Sub Workbook_Open()
Dim OldDate As Date, diff&, i&
With Sheets("Feuil1")
OldDate = .Range("E2")
If OldDate = Date Then Exit Sub
diff = Date - OldDate
If diff >= 6 Then
.Range("e4:j4") = ""
Else
.Range("e4").Resize(, 6 - diff).Value = .Range("e4").Offset(, diff).Resize(, 6 - diff).Value
.Range("J4").Offset(, 1 - diff).Resize(, diff) = ""
End If
.Range("e2") = Date
End With
End Sub