XL 2016 copy/paste filtered merged cells

[said123]

Bonjour, comme indique le nom, je veux faire un filtre sur un feuil excel, copier tous les cellules filtrées et les coller dans un autre workbook.
Voilà le code que j'ai fait mais il ne fonctionne pas parce que j'ai des cellules fusionnées

Dim Extract, Duplicate As Worksheet
Set Extract = Workbooks(fileTable(2)).Sheets("Suivi")
Set Duplicate = Workbooks(fileTable(1)).Sheets("Suivi filtered")
Extract.Range(Extract.Cells(1, 1), Extract.Cells(NbECU, j)).SpecialCells(xlCellTypeVisible).Copy
Duplicate.Cells(1, 1).PasteSpecial

NB: NbECU: nombre de ligne non vide
j: dernière colonne

 

[mapomme]

Bonjour @said123,

Une copie de cellules fusionnées filtrées peut fonctionner.