Option Explicit
Sub Extract()
Dim i%
Dim x%
Dim c As Range
x = Feuil1.Cells(Application.Rows.Count, "A").End(xlUp).Row
i = Feuil2.Cells(Application.Rows.Count, "A").End(xlUp).Row
Feuil2.Range("A2:AF" & i).ClearContents
For Each c In Feuil1.Range("D2:D" & x)
If c < c.Offset(0, 21) Then
i = Feuil2.Cells(Application.Rows.Count, "A").End(xlUp).Row + 1
c.EntireRow.Copy Destination:=Feuil2.Range("A" & i)
End If
Next c
End Sub