VBA: pb de mémoire avec la fonction Delete ou XL

Christian22

XLDnaute Junior
Bonjour à tous,

j'ai un problème de mémoire lorsque je supprime des colonnes dans une feuille excel avec le code suivant.
Chaque colonne supprimée comprend environ 1500 dates.
Auparant, j'utilisais la fonction Delete Shift:=xlToLeft mais cela consommait encore plus de mémoire.

(à titre d'infos, la mémoire utilisée augmente d'environ 1 000 000 Ko et parfois cela plante mon excel)

Avez vous une solution pour nettoyer la mémoire consommée?

Merci d'avance

Code:
Public Sub DateInsertion()

 Application.ScreenUpdating = False
 Application.Calculation = xlManual
Sheets("T2").Select

For i = 0 To 39
  Columns(141 - 2 * i).Select
  Selection.EntireColumn.Delete 
Next i

 Columns("W:BJ").Select
 Selection.EntireColumn.Delete
    
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic

End Sub