Private Sub CommandButton1_Click()
Dim TBLF As Range
Dim CIBLE As Variant
With Worksheets("BDD")
For Each CIBLE In .Range("A1:A" & Range("A65536").End(xlUp).Row)
Set TBLF = .Find(TextBox1.Value, LookIn:=xlValues)
If Not TBLF Is Nothing Then
Rows(TBLF.Row + 1).Insert Shift:=xlDown
Cells(TBLF.Row + 1, 2) = Sheets("CR_INTER").Range("A" & CIBLE.Row)
End If
Next
End With
End Sub