deux colonnes c.value

"Bonsoir"
Je souhaite parcourir deux colonnes si "inférieur" et "cotisation" donc sur la même ligne then voila le debut du code

Code:

---

1 2 3 4 5 6

Application.EnableEvents = False For Each C In Worksheets("Bilan").Range("plagevaleur") If C.Value = "inférieur" Then C.EntireRow.Copy .Range("A" & NewLig).PasteSpecial Paste:=xlPasteValues '''''''''''ok .Range("A" & NewLig).PasteSpecial Paste:=xlFormats

---

"Merci"

Si on cherche inférieur dans la colonne plagevaleur et cotisation dans le colonne juste à droite (dapate l'offset en fonction):

Code:

---

1 2 3 4 5 6

Application.EnableEvents = False For Each c In Worksheets("Bilan").Range("plagevaleur") If c.Value = "inférieur" And c.Offset(0, 1).Value = "cotisation" Then c.EntireRow.Copy .Range("A" & NewLig).PasteSpecial Paste:=xlPasteValues '''''''''''ok .Range("A" & NewLig).PasteSpecial Paste:=xlFormats

---