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