Changer l'argument de xlWhole en xlPart
Substrater Cue2 ()
Obscurcir le rFind comme gamme
Application.ScreenUpdating = faux
Avec des feuilles (« système »). Colonnes (3)
Placer le rFind =. Trouver (ce qui : = " sélection ", LookAt : =xlPart, MatchCase : =False, SearchFormat : =False)
Sinon le rFind n'est rien alors
Faire
rFind.EntireRow.Delete
Placer le rFind =. Trouver (ce qui : = " sélection ", LookAt : =xlPart, 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é