COPIE/COLLE avec 2 conditions

Sub Bouton1_Cliquer()
Dim i&
With Sheets("Base")
    For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
        If .Cells(i, 1) = "Non" And .Cells(i, 2) = 1 Then
            .Rows(i).Copy Sheets("Prospé").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
        End If
    Next i
End With
End Sub

Sub Bouton2_Cliquer()
Dim i&, TData As Variant
With Sheets("Base")
    TData = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(3)(2, 7))
End With

For i = LBound(TData, 1) To UBound(TData, 1)
    If TData(i, 1) = "Non" And TData(i, 2) = 1 Then
        Sheets("Prospé").Cells(Rows.Count, 1).End(3)(2).Resize(, UBound(TData, 2)) = Application.Index(TData, i)
    End If
Next i
        
End Sub