Formule VBA suppression de ligne si

Bonjour,

J’aurai besoin d’aide pour créer une macro :

Si dans la colonne A de la feuille 1, je trouve des cellules avec B,C ou D, je veux supprimer les lignes correspondantes.

merci d'avance pour votre aide.

Eric21540

Bonjour,

Essaie ainsi :

Option Compare Text
Sub Macro4()
Dim A_Suppr, It
A_Suppr = Array("B", "C", "D")
For Each It In A_Suppr
    Columns(1).Replace What:=It, Replacement:="", LookAt:=xlWhole
Next It
Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Bonne journée

C'est parfait,

Merci pour votre aide!

Eric21540