Bonjour,
Il s'agit de la zone de critère. Dans ton cas, elle ne sert à rien puisque tu ne te sers du filtre élaboré que pour obtenir une liste sans doublon. Par contre, elle peut devenir une source de problème si une donnée venait à être saisie en Z2.
Autant préférer
Range("d2:d" & Lg).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"I2"), Unique:=True
A+