Accélérer exécution de la macro

Sub Macro1b()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
nbcells = Application.WorksheetFunction.CountA(Feuil1.Range("$A:$A")) + 1
For i = 2 To nbcells
    Range("$B$" & i & ":$J" & i).FormulaLocal = "='" & Range("chemin_dossier").Value & "[" & Range("$A" & i).Value & "]" & "Feuil2" & "'!A2"
Next i
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Sub Macro1()
Application.ScreenUpdating = False
Dim DébFml As String, Plg As Range, Te(), Tr(), L&, C&
DébFml = "='" & [chemin_dossier].Value & "["
Set Plg = Application.Range(Feuil1.[Debut].Offset(1), Feuil1.[Debut].Offset(60000).End(xlUp))
Te = Plg.Value
ReDim Tr(1 To UBound(Te), 1 To 9)
For L = 1 To UBound(Te)
   For C = 1 To 9
      Tr(L, C) = DébFml & Te(L, 1) & "]Feuil2'!$" & EntCol(C) & "$2"
      Next C, L
Application.DisplayAlerts = False
Plg.Offset(, 1).Resize(, 9).Value = Tr
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Function EntCol(ByVal N As Long) As String
Do: N = N - 1: EntCol = Chr$(N Mod 26 + 65) & EntCol: N = N \ 26: Loop Until N = 0
End Function
Function ColEnt(ByVal C As String) As Long
Dim P As Long: For P = 1 To Len(C): ColEnt = ColEnt * 26 + Asc(UCase(Mid$(C, P, 1))) - 64: Next P
End Function