Copiare INDIRETTO+CERCA.VERT

Option Explicit

Sub Copia_Formule()
    Windows("Cartel2").Activate
        Cells(3, 2).FormulaLocal = "=CERCA.VERT(M70-S68;H$2:I$10;2;0)"
End Sub

Option Explicit
Sub CopiaFormule()
Dim W1 As Workbook, Sh1 As Worksheet, W2 As Workbook, Sh2 As Worksheet
Dim Text As String, FileS As String, R As Long, C As Long, X As Long, Y As Long
Set W1 = Workbooks("SM-45-B.xlsm")
Set Sh1 = W1.Sheets("Foglio0") 'deve esistere
    FileS = Application.Dialogs(xlDialogOpen).Show
    FileS = ActiveWorkbook.Name
    Set W2 = Workbooks(FileS)
    Set Sh2 = W2.Sheets("Foglio1") 'deve esistere
    R = 1
    C = 11
    For Y = R To 200
        For X = C To 21
            If Mid(Sh1.Cells(Y, X).Formula, 1, 1) = "=" Then
                Text = Sh1.Cells(Y, X).Formula
                Text = Mid(Text, 2, Len(Text))
                Sh2.Cells(Y, X) = Text
                Sh2.Cells(Y, X) = "=" & Text
            Else
                Sh2.Cells(Y, X) = Sh1.Cells(Y, X)
            End If
        Next X
    Next Y
Set W1 = Nothing
Set W2 = Nothing
Set Sh1 = Nothing
Set Sh2 = Nothing
MsgBox "Fatto"
End Sub