Quelqu'un s'y connait en VBA ?

Puis :
Dim ligne/col/derligne as long - jamais d'int
ton derligne : tafeuille.Range("A" & Rows.Count).End(xlUp).Row / remplace A par la colonne avec la derligne

ne stock pas ton colonne et ligne = 1, sert à rien
-> If UCASE(tafeuille.Cells(ligne,1).value) like "*BATISTE*" Ucase pour mettre en maj
et surtout jamais de select dans ton code, sert à rien + ça t'empeche de travailler sur une feuille pas active
-> Tafeuille.Rows(ligne).Delete Shift:=xlUp

et oublie pas ton Next ligne et pas Next