Bonjour,

Je cherche le meilleur moyen de réduire ce morceau de code, surtout pour que cela soit rapide pour ajouter des termes afin de supprimer les lignes supplémentaires en évitant d'avoir 200 lignes de codes...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
For i = 500 To 3 Step -1
            If (Worksheets("Feuil3").Cells(i, 3)) Like "*Agent*" Then Worksheets("Feuil3").Rows(i).Delete
            If (Worksheets("Feuil3").Cells(i, 3)) Like "*Infirmier*" Then Worksheets("Feuil3").Rows(i).Delete
            If (Worksheets("Feuil3").Cells(i, 3)) Like "*Policier*" Then Worksheets("Feuil3").Rows(i).Delete
            If (Worksheets("Feuil3").Cells(i, 3)) Like "*Technicien*" Then Worksheets("Feuil3").Rows(i).Delete
Next i

Merci d'avance.