Dim DeBlg As Long, DerLg As Long
DeBlg = Sheets("BdD").Range("D65000").End(xlUp).Row + 1
DerLg = Sheets("infos").Range("D65000").End(xlUp).Row + DeBlg - 1
Sheets("BdD").Activate
Sheets("Infos").Range("TabAg[[Expérim]:[Sct]]").AdvancedFilter Action:=xlFilterCopy _
, CopyToRange:=Range("B" & DeBlg), Unique:=True