bonjour Stef51
C'est simple, rajoutes des lignes avec ces nouveau noms :
If Range("A" & x) = "APPORTEUR" Then Rows(x).EntireRow.Delete
If Range("A" & x) = "REGION" Then Rows(x).EntireRow.Delete
If Range("A" & x) = "VENTES" Then Rows(x).EntireRow.Delete
Cordialement
CBernardT