XL 2016 copy/paste filtered merged cells

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