macro (temps exécution long)

BRUNO62 à dit:

Bonsoir à tous,

J'ai une macro qui fonctionne bien sur toute sa longueur par contre je suis surpris sur le délai d'exécution de la dernière étape qui consiste à la fin de supprimer quelques lignes sur une feuille. L'opération dure trois minutes !

Avez vous une solution pour diminuer ce temps d'exécution ?

Sheets("Feuil4").Select
.Range("1:3,5:5").Delete
End With
End Sub

a+

Cliquez pour agrandir...

Sheets("Feuil4").Range("1:3,5:5").EntireRow.Delete
End With
End Sub

BRUNO62 à dit:

Papou-net ,
Merci et désolé, le emps d'exécution est le même.
a+

Cliquez pour agrandir...