plantage sur fichier de 150 mo

Sub Macro1Engregistreur()
Range("T3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-15],LISTING!C[-18]:C[-17],2,0)"
Range("T3").Select
End Sub

Sub Macro1Modif()
Dim derlig&
derlig = Cells(Rows.Count, "T").End(xlUp).Row
With Range("T3:T" & derlig)
.FormulaR1C1 = "=VLOOKUP(RC[-15],LISTING!C[-18]:C[-17],2,0)"
.Value = .Value
End With
End Sub

Sub Macro1Modif()
'Déclaration de la variable derlig
Dim derlig&
'derlig= le numéro de ligne de la dernière cellule non vide
'ici dans la colonne T
derlig = Cells(Rows.Count, "T").End(xlUp).Row
With Range("T3:T" & derlig)
'donc dans les cellules non vides de la colonne T
'on inscrit la formule RECHERCHEV en une seule fois
.FormulaR1C1 = "=VLOOKUP(RC[-15],LISTING!C[-18]:C[-17],2,0)"
'puis on transforme la formule en valeur
.Value = .Value
End With
End Sub

Sub test()
Dim f As Worksheet, p As Range, c As Range, i&
Set f = ActiveSheet
On Error Resume Next
Application.DisplayAlerts = False
Sheets("Formules").Delete
Sheets.Add(after:=Worksheets(Sheets.Count)).Name = "Formules"
Set p = f.UsedRange.SpecialCells(xlCellTypeFormulas)
i = 1
For Each c In p
Sheets("Formules").Cells(Rows.Count, "A").End(xlUp)(2) = c.Address(0, 0) & "-> " & c.FormulaLocal
i = i + 1
Next c
Sheets("Formules").[A1] = "Liste des formules dans " & f.Name
MsgBox i & " formules trouvée(s) dans " & f.Name
End Sub

Sub Valseules()
Dim s As Worksheet, c As Range
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    For Each s In Worksheets
    On Error Resume Next
        For Each c In s.UsedRange.SpecialCells(xlCellTypeFormulas)
        c.Value = c.Value
        Next c
    Next s
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub