Copie des données d'une feuille vers une autre avec condition- Problème dans le code

Bonjour,

Mon code sert à copier les données d'un tableau d'une feuille vers le tableau d'une autre avec une condition.
Tout fonctionne correctement sauf qu'il me recopie systématiquement la ligne 2 de mon tableau que la condition soit remplie ou non.

Pouvez-vous jeter un coup d’œil sur mon code?

Merci par avance


Voici le code

Sub TreatData()

Dim z As Range, cel As Range
Set z = [Database].Columns(19).Find("*", LookIn:=xlValues)
If z Is Nothing Then Exit Sub
For Each cel In [Database].Columns(19).Cells
If cel.Value > 0 Then Set z = Union(cel, z)
Next
Intersect([Database[[Year]:[Jun]]], z.EntireRow).Select
Selection.Copy
Sheets("CustomerFreight").Activate
Cells(3, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub