Retraitement fichier avec VBA

Bonjour à tous,

besoin de votre aide.

Je retraite une BD qui contient plusieurs comptes comptable.

Je voudrais juste récupérer les ligne qui contiennent le 6032000.

J'ai donc écris ce code :

Dligne = Range("A1000000").End(xlUp).Row

For I = Dligne To 4 Step -1

If Cells(I, 2) <> "6032000" Then Rows(I).Delete

Next I

qui me permet de le faire en supprimant tous les autres comptes.

Le souci, c'est qu'au lieu de gagner en temps, je perds du temps car la base est trop lourde.

est-il possible de le faire autrement ?

Merci pour votre aide !

Bonjour,

Crée un tableau croisé dynamique avec un champ de page correspondant aux numéros de compte.

Puis tu filtres !

Cdlt.

En fait c'est qu'une partie partie travail. Le travail ne consiste pas que récupérer ces lignes.il y a du code avant et d'autres choses a faire après ce retraitement

Merci pour ton Apport !

Essaie d'ajouter cette ligne de code au début de ton code :

Application.ScreenUpdating=false

Bonjour melch,

Sisi je l'ai fait !

Merci !