Private Sub CommandButton1_Click()
Dim I&, K&, MinA&, MaxA&, MinB&, MaxB&, T As Variant
K = 1
With Sheets("Feuil1")
MinA = .[d1]: MaxA = .[e1]
MinB = .[f1]: MaxB = .[G1]
T = .Range("A1:B" & .Cells(Rows.Count, 1).End(xlUp).Row)
For I = 2 To UBound(T, 1)
If (T(I, 1) < MinA Or T(I, 1) > MaxA) And _
(T(I, 2) < MinB Or T(I, 2) > MaxB) Then
K = K + 1
T(K, 1) = T(I, 1): T(K, 2) = T(I, 2)
End If
Next I
End With
Application.ScreenUpdating = False
Columns("A:B").Clear
Range("A1").Resize(K, UBound(T, 2)) = T
Application.ScreenUpdating = True
End Sub