supprimer les lignes qui contiennent quelque chose de précis dans un onglet ?

Bonjour à tous,

je viens vers vous car j'ai du mal avec vba, ça fait un moment que je ne m'y suis penché et j'ai un peu voire tout oublié ...
J'ai un gros fichier excel avec une multitude d'onglets ... jusque là c'est pas méchant.
Les feuilles contiennent par exemple ceci :

onglet 1:

toto (1e valeur de la colonne 1, les valeurs en colonne 2 etc, peu importe)
titi (idem)
tata (idem)

onglet 2 :

toto (idem)
tata

Sauf que j'aimerais automatiser un process : supprimer les lignes de tous les onglets où titi n'apparait pas (la feuille 1/onglet 1 serait la feuille référence)

est ce possible simplement ?

merci par avance ;)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub CommandButton2_Click() Dim J As Long Dim Plage As Range Dim WS_Count As Integer Dim I As Integer Set Plage = Range("A1", Range("A65536").End(xlUp)) For J = Plage.Cells.Count To 1 Step -1 If Plage.Cells(J).Value = "Construction" Then Plage.Cells(J).EntireRow.Delete End If Next End Sub
j'ai tenté ça mais ça ne semble pas fonctionner ...