Bonjour tout le monde,

La lecture du forum m'a aidé plein de fois, mais malheureusement je n'ai pas pu trouver une solution à mon problème

Mon code sert à sélectionner les lignes d'un tableau suivant une condition sur une cellule. (Le but est de supprimer l'ensemble des lignes sélectionnées en une seule fois)
Tout fonctionne correctement sauf qu'il me sélectionne 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:
Exemple.xlsm
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Function DCInventoryDel()
 Sheets("DCInventory").Activate
 Dim z As Range, cel As Range
 Set z = [DCInventoryTable].Columns(19).Find("*", LookIn:=xlValues)
 If z Is Nothing Then Exit Function
 For Each cel In [DCInventoryTable].Columns(19).Cells
  If cel.Value = 0 Then Set z = Union(cel, z)
  Next
 Intersect([DCInventoryTable[[Year]:[Handling Cost ($MXN/year)]]], z.EntireRow).Select
 Selection.Delete
End Function
Pièce jointe 168634