OPTIMISER MACRO

[KTM]

salut cher Forum
j'ai une table qui comporte 23 colonnes et 4500 lignes sur laquelle je dois travailler.
j'ai élaboré la macro si dessous qui doit supprimer les colonnes Q,R,S et supprimer toutes les données de cette table sauf les entêtes
le probleme est que la macro met des minutes à s'exécuter.
je ne sais pas si cette lenteur est due a mon PC ( Dual Core 4G de RAM) ou si c'est l'architecture de ma macro qui en est la cause.
Je voudrais que vous aidiez a optimiser la macro si possible.

Application.ScreenUpdating = False
Dim a As Integer
Sheets("E").select
Columns("Q:S").Delete Shift:=xlToLeft
a = Sheets("E").Range("A" & Rows.Count).End(xlUp).Row
Sheets("E").Range("A2:T" & a).Delete
Application.ScreenUpdating = True

 

[Staple1600]

Bonjour KTM

KTM
Bah, koikesse KTM?
Alors tu ne salues pas eriiiic, mapomme, kadelmalin (sans oublier ma pomme) ?

mapomme
Je ne parle pas le bas breton ni le gallo, mais je dis Bonjour moi

 

[Staple1600]

Gros fichier donc pas question de passer sur XLD. Attention! Les MFC peuvent être une source de ralentissement considérable voire bloquant.

En plus d'être bloquant, ça peut être dangereux (surtout pour le nerf auditif)
Et cette MFC, elle ne ralentit pas du tout

 

[KTM]

Je voudrais dire grand merci à tous ceux qui sont intervenus dans cette discussion
Jai découvert que le probleme était ma feuille
j'ai suivi le conseil de eriiiic quant à supprimer la feuille et la recréer et je vous avoue que toutes vos solutions marchent parfaitement
Encore merci et que les Dieux du VBA vous fortifient.