Macro Find avec deux valeurs

Bonjour à tous,

Alors, j'ai un petit code avec lequel je fais une recherche pour ne garder les cellules qui ont la valeur "1" dans une plage nommée (c'est la colonne S de ma base)
je souhaiterais ne retenir que les lignes pour lesquelles la colonne S (plage nommée zonepick1) = "1" uniquement si la valeur de la même ligne en Colonne B = "2"

Voici le début de mon code,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub Rechercher_Click()   Me.ListBox1.Clear Set C = Range("Zonepick1").Find("1", LookIn:=xlValues)   If Not C Is Nothing Then   premier = C.Address i = 0   Do   Me.ListBox1.AddItem Me.ListBox1.list(i, 0) = C.Offset(0, -17).Value Me.ListBox1.list(i, 1) = C.Offset(0, -15).Value Me.ListBox1.list(i, 2) = C.Offset(0, -13).Value Set C = Range("zonepick1").FindNext(C) i = i + 1 Loop While Not C Is Nothing And C.Address <> premier End If     End Sub

---

J'ai essayer plein de chose sans succès, si vous avez des pistes je suis à l'écoute.

Merci d'avance et un bon week end.

Bonjour
c'est simple tu teste si c'est le cas

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Private Sub Rechercher_Click()   Me.ListBox1.Clear Set C = Range("Zonepick1").Find("1", LookIn:=xlValues)   If Not C Is Nothing Then   premier = C.Address i = 0   Do If C.Offset(0, -17).Value = 2 Then Me.ListBox1.AddItem Me.ListBox1.List(i, 0) = C.Offset(0, -17).Value Me.ListBox1.List(i, 1) = C.Offset(0, -15).Value Me.ListBox1.List(i, 2) = C.Offset(0, -13).Value i = i + 1 End If Set C = Range("zonepick1").FindNext(C)     Loop While Not C Is Nothing And C.Address <> premier End If     End Sub

---