Insérer des formules dans des classeurs fermés

Public Sub ImportFichiers()
Dim fichiersImport
Dim classeurCourant As Workbook
Dim iFichier As Integer
Dim feuilleImport As Worksheet
Dim zoneCopie As Range, zoneColle As Range

Set feuilleImport = ThisWorkbook.Sheets("Feuille Import")

fichiersImport = Application.GetOpenFilename("Fichiers Excel, *.xls; *.xlsx; *.xlsm", , "Sélectionnez les fichiers à importer", , True)

For iFichier = LBound(fichiersImport) To UBound(fichiersImport)
Stop
Set classeurCourant = Application.Workbooks.Open(fichiersImport(iFichier), , True)
With classeurCourant.Sheets("Feuille de Calcul1")

'Set zoneColle = feuilleImport.Range("A1:A4").CurrentRegion
Set zoneColle = ThisWorkbook.Sheets("Feuille Import").Range("A" & ThisWorkbook.Sheets("Feuille Import").Range("A65536").End(xlUp).Row + 1)
'Set zoneColle = zoneColle.Offset(zoneColle.Rows.Count).Resize(1, 1)
'Set zoneCopie = .Range("A1:A4").CurrentRegion
Set zoneCopie = .Range("A1:Z" & Range("A65536").End(xlUp).Row)

'Set zoneCopie = zoneCopie.Resize(zoneCopie.Rows.Count - 3, zoneCopie.Columns.Count).Offset(3)
zoneCopie.Copy zoneColle

End With
classeurCourant.Close
Next iFichier
End Sub