Private Sub Workbook_Open()
Dim FeuilDonnees As Worksheet, FeuilHisto As Worksheet
Dim Cel As Range, ColRegul As Range
Dim DerCel As Range
Application.ScreenUpdating = False
Set FeuilDonnees = Sheets("Donnees")
Set FeuilHisto = Sheets("Histo")
Set DerCel = FeuilHisto.Cells(Rows.Count, "A").End(xlUp)(2)
Set ColRegul = FeuilDonnees.Range("G7:G44")
For Each Cel In ColRegul
If IsDate(Cel.Value) And Cel.Value <> "" Then
If Cel.Value + 10 < Date Then
Set DerCel = FeuilHisto.Cells(Rows.Count, "G").End(xlUp)(2).Offset(, -6)
With Cel.Offset(, -6).Resize(1, 7)
.Copy DerCel
.ClearContents
End With
End If
End If
Next Cel
With FeuilDonnees
.ListObjects("Tableau1").Sort.SortFields. _
Add Key:=Range("Tableau1[Régularisé le]"), SortOn:=xlSortOnValues, Order _
:=xlDescending, DataOption:=xlSortNormal
With .ListObjects("Tableau1").Sort
.Header = xlYes
.Apply
End With
End With
End Sub