Cond alternatives IF

[stef51]

Bonjour,
Cette ligne de code fonctionne

If Range("A" & x) = "APPORTEUR" Then Rows(x).EntireRow.Delete

Mais j'aimerai que soient supprimées d'autres lignes comme "apporteur" ou "REGION" ou "VENTES"

Comment le traduire en VBA car "Or" en l'occurence ne fonctionne pas

Merci

 

[CBernardT]

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

 

[stef51]

merci