Microsoft 365 VBA Optimasation charge travail

Sub Compte()
DerLig = Range("G65500").End(xlUp).Row
Range("H2:L" & DerLig).ClearContents
Colonne = 8 ' Première colonne où on met un X
Somme = 0   ' Somme des heures
For L = 2 To DerLig
    Somme = Somme + Cells(L, "G")
    If Somme <= 105 Then
        Cells(L, Colonne) = "X"
    Else                        ' Si somme >105
        Somme = 5               ' On remet le compte d'heures à 5
        Colonne = Colonne + 1   ' On passe à la colonne suivante
        Cells(L, Colonne) = "X"
    End If
Next L
End Sub