X secondaire ()
Faible rFind comme gamme
Application.ScreenUpdating = faux
Avec des feuilles (« réconcilier »). Colonnes (4)
Placer le rFind =. Trouver (ce qui : = " sélection ", LookAt : =xlWhole, MatchCase : =False, SearchFormat : =False)
Sinon le rFind n'est rien alors
Faire
rFind.EntireRow.Delete
Placer le rFind =. Trouver (ce qui : = " sélection ", LookAt : =xlWhole, MatchCase : =False, SearchFormat : =False)
Faire une boucle jusqu'à ce que le rFind ne soit rien
Finir si
Finir avec
Application.ScreenUpdating = rectifient
Sous-marin d'extrémité
|