Extraire des données avec celulles visibles

Hello j'essaye d'appliquer une formule qui se déroule sur une plage en VBA ce qui donne :

Sheets("final").Range("Y7:AQ" & L2 + 4).FormulaR1C1 = _
        "=IF(ISERROR(original!R[-4]C[-19]),0,original!R[-4]C[-19])"

(je veux seulement un tableau des zones filtrées avec à la place des NA un 0 !)

Mais cela prend toutes les données et moi je veux avoir dans mon tableau d'arrivée seulement les donnnées filtrées donc celulles visibles mais j'ai pas trouvé ...

Merci de votre aide !

Bonsoir,

code ci-dessous

Sub copie()
    Dim cell As Range

    Sheets("original").UsedRange.SpecialCells(xlCellTypeVisible).Copy
    With Sheets("final")
        Application.Goto Range("A6")
        .Paste Link:=True
        Application.CutCopyMode = False
        For Each cell In .Cells.SpecialCells(xlCellTypeFormulas)
            cell.Formula = "=IFERROR(" & Replace(cell.Formula, "=", "") & ",0" & ")"
        Next cell
    End With

End Sub