Aide sur Macro EffaceLignes selon Texte

Bonsoir à tous!!

Je reviens vers vous pour un petit coup de main sur une macro qui recherche 2 mots dans une colonne et qui doit effacer la ligne correspondante et les 3 qui suivent.....

J'ai tenté de "bidouiller" un bout de code mais rien de terrible^^ ça marche pas?!?

Si quelqu'un peut y jeter un coup d’œil et me donner un petit coup de pouce?

UN GRAND MERCI D'AVANCE......

PS: je vous joins le fichier, retouché car contenant des infos perso, le bout de code est dispo dans le module 1....

A tester

Sub EffacerEnsembleLigne()
Dim I As Integer
    For I = [E6500].End(xlUp).Row To 1 Step -1
        If Not Cells(I, 5).Find("maximum") Is Nothing Or _
           Not Cells(I, 5).Find("Stagiaire") Is Nothing Then Rows(I & ":" & I + 3).Delete
    Next I
End Sub

Bsoir Myta!!

Un grand merci!! cela fonctionne parfaitement^^

Je vais pouvoir finir mon taf pour demain!!

UN GRAND MERCI DE M'AIDER A CETTE HEURE SI TARDIVE......