[Résolu] Température SQL supprimer des données rapidement

Sub script()
Dim Cel As Range
Dim Tablo As Object
t = Timer
Set Tablo = CreateObject("Scripting.Dictionary")
For Each Cel In Range("A2", Cells(Rows.Count, 1).End(xlUp))
    If (Cel.Row + 10) Mod 12 = 0 Then Tablo(Format(Cel.Value, "mm/dd/yy hh:mm")) = Cel.Offset(, 1)
Next Cel
With Sheets("scripting")
    .Range("A2").Resize(Tablo.Count) = Application.Transpose(Tablo.Keys)
    .Range("B2").Resize(Tablo.Count) = Application.Transpose(Tablo.Items)
End With
MsgBox Timer - t
End Sub

Sub Filtre_elabore()
Dim Plg As Range
Dim DerLig As Long, DerCol As Long
t = Timer
With Sheets("base")
    If [A1] = "" Then [A1] = "Date"
    DerLig = Cells(Rows.Count, 1).End(xlUp).Row
    DerCol = Cells(1, Columns.Count).End(xlToLeft).Column
    Set Plg = Range("A1", Cells(DerLig, DerCol))
    .Range("H2").FormulaR1C1 = "=MOD(ROW(RC[-7])+10,12)=0"
    Sheets("filtre_elabore").Cells.Clear
    Plg.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range("H1:H2"), _
        CopyToRange:=Sheets("filtre_elabore").Range("A1:E1"), Unique:=False
    .Range("H2").Clear
End With
MsgBox Timer - t
End Sub