Erreur Exécution 7 : mémoire insuffisante : code moins lourd?

Bonjour à tous

merci à l'avance de prendre le temps de me lire et de m'aider.
Je n'ai pas joint de fichier pour le moment mais si vous en avez besoin, dites-moi.

mon fichier à une feuille nommée : Grand livre à date
Ensuite il y a plusieurs feuilles nommées entre autre.. 33533, 11502, ...
Les noms de feuilles, correspondent aux données qu'on retrouve dans la feuilles grand livre colonne G.

Donc ce code, je regarde toutes les lignes de la feuille Grand livre à date et si la colonne G, correspond à un nom de feuille je vais porter l'info dans cette feuille.
Ensuite je vais dans chaque feuille et je mets une formule dans la colonne E
Et finalement je vais dans chaque feuille et j'ajoute le mois dans la colonne G selon l'info de la colonne B.

ça fonctionnais quand j'avais moins de données dans la feuille Grand livre à date.. et moins de feuilles..maintenant ça ne fonctionne plus. J'ai aussi ajouter moi même les deux dernières formules...

Je ne suis pas très douée en VBA, ce code m'avait été fait par Michel_m, ici même sur ce forum en 2013!

Serait-il possible de changer quelque chose dans ce code pour le rendre moins lourd? Peut-être mes ajouts au code de Michel_m sont-ils problématiques..

merci à l'avance
Mélanie

Sub repartir_grandlivre()
Dim Nbre_onglets As Byte, Cptr_cl As Byte
Dim T_comptes(), Compte As String, Nbre As Integer, Cptr_t As Byte
Dim Derlig As Integer, T_grandlivre()
Dim T_dummy(), Cptr_d As Integer, Cptr As Integer, Lig As Integer, Col As Byte
Dim Ligvide As Long
'Dim essai

Application.ScreenUpdating = False

With Sheets("Grand livre à date")
'------Création d'une variable-tableau 2D nbre occurences compte,nom compte
Nbre_onglets = ThisWorkbook.Sheets.Count
ReDim T_comptes(2, 1)
For Cptr_cl = 1 To Nbre_onglets
If Sheets(Cptr_cl).Name <> "Grand livre à date" <> "DÉTAIL" <> "FRAIS EXPLOITATION" _
<> "Stocks " <> "Immos" <> "Frais courus-FPA et autres" <> "DAS" _
<> "Salaire- employés(avance-vac" <> "Taxes" <> "Cout alimentation" <> "entretien animaux" <> "FRAIS ADMIN" <> "Frais machineries" <> "Frais bancaires" Then
Compte = Sheets(Cptr_cl).Name
Nbre = Application.CountIf(Sheets("Grand livre à date").Columns("H"), Compte)
If Nbre > 0 Then
Cptr_t = Cptr_t + 1
ReDim Preserve T_comptes(2, Cptr_t)
T_comptes(1, Cptr_t) = Nbre
T_comptes(2, Cptr_t) = Compte
End If
End If
Next
'-------------mémorise la feuille "grandlivre" en mémoire RAM
Derlig = .Range("A" & .Rows.Count).End(xlUp).Row 'dernière ligne utilisée col A
T_grandlivre = .Range("A1:H" & Derlig).Value 'creation d'une variable -tableau

'---- --------création d'une variable tableau avec les colonnes A à H des lignes du n° compte en cours
For Cptr_d = 1 To Cptr_t
Nbre = T_comptes(1, Cptr_d)

ReDim T_dummy(Nbre, 6)
Lig = 1

For Cptr = 1 To Nbre
Lig = .Columns("h").Find(T_comptes(2, Cptr_d), .Cells(Lig, "H"), xlValues).Row
For Col = 1 To 6
T_dummy(Cptr, Col) = T_grandlivre(Lig, Col)


Next
Next


'----------restitution et encadrement dans la feuille comptes en cours
With Sheets(CStr(T_comptes(2, Cptr_d)))
Ligvide = .Columns("A").Find("", .Range("A5")).Row
With .Cells(Ligvide, "A").Resize(Nbre, 6)
.Value = T_dummy
.Borders.Weight = xlThin
End With
'----------calculs


Dim LastLig, LastLig2 As Long
Application.ScreenUpdating = False

With Sheets(CStr(T_comptes(2, Cptr_d)))
'Ligne de la dernière cellule remplie de colonne A
LastLig = .Cells(.Rows.Count, "E").End(xlEnd).Row
LastLig2 = .Cells(.Rows.Count, "G").End(xlEnd).Row
'On écrit la formule dans A2&"/"&B2 dans C2:Cxx puis on fige les valeurs
With .Range("E6:E" & LastLig)
.Formula = "=IF(RC[-4]>0,IF(RC[-2]>0,R[-1]C+RC[-2],R[-1]C-RC[-1]),"""")"
.Value = .Value
End With

With .Range("G6:G" & LastLig2)
.Formula = "=IF(RC[-5]<> """",CHOOSE(MONTH(RC[-5]),""janvier"",""fevrier"",""mars"",""avril"",""mai"",""juin"",""juillet"",""aout"",""septembre"",""octobre"",""novembre"",""decembre""),"""")"
.Value = .Value
End With
End With

End With
Next
End With
MsgBox "Répartition des comptes effectuée avec succès"
End Sub