recherche avec 2 conditions

Dim doublon As Variant
With Feuil1
For Each doublon In .Range("B2:B" & .Range("A65536").End(xlUp).Row)
If doublon.Text = TextBox2.Text Then
MsgBox "Article déja saisie", vbCritical, "INFORMATION"
TextBox2.Text = ""
End If
Next
End With

Private Sub CmdButValider_Click()

Dim doublon As Variant
With Feuil1
For Each doublon In .Range("B2:B" & .Range("A65536").End(xlUp).Row)
If doublon = TextBox2.Text And doublon.Offset(0, -1) = TextBox1.Text Then
MsgBox "Article déja saisie", vbCritical, "INFORMATION"
TextBox1.Text = ""
TextBox2.Text = ""
Exit Sub
End If
Next
End With

Dim Lig As Long

With Worksheets("feuil1")
   Lig = .Range("A65536").End(xlUp)(2).Row
    
    With .Range("A" & Lig)
        .Value = TextBox1
    End With
    
    With .Range("B" & Lig)
        .Value = TextBox2
    End With
    
    With .Range("C" & Lig)
        .Value = TextBox3
    End With
 End With
End Sub