plantage sur fichier de 150 mo

Sub testI()
Dim dlA&, dlB&, c As Range
'ici on nomme une plage de cellule
dlA = Sheets("BASE").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("BASE").Range("A2:C" & dlA).Name = "DATAS"
With Sheets("Feuil2")
dlB = .Cells(Rows.Count, "A").End(xlUp).Row
' ici on fait des RECHERCHEV en VBA en passant par une boucle
For Each c In Range("A2:A" & dlB)
    Cells(c.Row, "B") = Application.VLookup(c, [DATAS], 2, 0)
    Cells(c.Row, "C") = Application.VLookup(c, [DATAS], 3, 0)
Next c
End With
End Sub

Sub testII()
Dim dlA&, dlB&, c As Range
dlA = Sheets("BASE").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("BASE").Range("A2:C" & dlA).Name = "DATAS"
With Sheets("Feuil2")
dlB = .Cells(Rows.Count, "A").End(xlUp).Row
'insertion formule RECHERCHEV puis transformation en valeur seule
With .Range("B2:B" & dlB)
    .FormulaR1C1 = "=VLOOKUP(RC1,DATAS,2,FALSE)"
    .Value = .Value
End With
With .Range("C2:C" & dlB)
    .FormulaR1C1 = "=VLOOKUP(RC1,DATAS,3,FALSE)"
    .Value = .Value
End With
End With
End Sub