Recherche Texte

Bonjour,

J'utilise cette macro pour cherche un mot et supprimer ligne

Dim C As Range
Do
Set C = Columns(2).Find("TPU C 0121-B", , , xlWhole)
If C Is Nothing Then Exit Sub
C.EntireRow.Delete
Loop

A la place de mettre la valeur littérale "TPU C 0121-B", est il possible de renvoyer sur la valeur d'une cellule par exemple A2 ? ou encore mieux d'une plage de cellule par exemple A2:A ?

Bonjour Totoche31, le forum,

Une demande similaire a été traitée ici:

https://forum.excel-pratique.com/excel/supprimer-des-lignes-par-rapport-a-une-liste-de-mots-151905

En espérant que cela t'aide,

Cordialement,

Je vais essayer d'adapter , merci bcp