Private Sub Worksheet_Activate()
Dim Déca As Long, NbCol As Long
Déca = Date - Me.[XU2].Value
If Déca > 0 Then
Me.[XU2].Value = Date
With Me.[D5:YA25]: NbCol = .Columns.Count - Déca
.Resize(, NbCol).Value = .Offset(, Déca).Resize(, NbCol).Value
.Resize(, Déca).Offset(, NbCol).Value = Empty
End With: End If
End Sub