Private Sub CommandButton1_Click()
Dim ShtD As Worksheet
Dim Crit1 As String ' Valeur cherchée colonne B
Dim Crit2 As String 'Valeur cherchée colonne I
Dim dLig As Long, Lig As Long
' Définir et effacer les lignes de feuille 1
Set ShtD = ThisWorkbook.Sheets("Feuil1")
ShtD.Range("A2:J30").ClearContents
' Définir le critère à rechercher
Crit1 = Me.TextBox1.Value: Crit2 = Me.TextBox2.Value
' Avec l'objet conteneur
With ThisWorkbook.Sheets("saisie")
' Dernière ligne remplie
dLig = .Range("A" & Rows.Count).End(xlUp).Row
' Pour chaque ligne
For Lig = 2 To dLig
' chercher les correspondances
If .Range("B" & Lig).Value = Crit1 And .Range("I" & Lig).Value = Crit2 Then
' Si trouvé, copier/coller l'information
.Range("A" & Lig).Resize(, 10).Copy ShtD.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
MsgBox "ligne trouvée " & Lig
End If
Next
End With
' effacer la variable objet
Set ShtD = Nothing
End Sub