Salut a tous !

J'ai besoin de vos lumières ! Je vous explique mon problème :

J'ai réalisé une petite macro me permettant de supprimer les 10 premières lignes d'un tableau, la voici :




Sub Supp()

For i = 1 To 10

Set r = Range("A1: P10" )
r.Rows(1).Delete shift:=xlUp

Next i

End Sub




En plus de ca, j'aimerai effectuer la suppression de 10 lignes supplémentaires à partir de la cellule contenant le mot "toto".

En gros voila comment ca se présente à travers un exemple :

Ligne 11 "culcul"
Ligne 12 "tata"

etc...

Ligne 16 "toto"

*Suppression des 10 lignes suivantes*

On m'a conseillé de faire une première boucle chargée de trouver le mot "toto" dans le tableau puis d'effectuer une autre boucle de suppression des 10 lignes. Mais je ne sais pas comment m'y prendre

Des idées...

Merci d'avance !