XL 2016 Somme d'une même cellule sur une plage d'onglets défini dans une cellule début et une cellule fin

Sub Macro1()
Dim C As Worksheet 'déclare la variable C (onglet Clé de reapartition 2018)
Dim O As Worksheet 'délcare la variable O (Onglet)
Dim OK As Boolean 'déclare la variable OK
Dim T As Long 'déclare la variable T (Total)

Set C = Worksheets("clé de repartition 2018") 'définit l'onglet C
For Each O In Worksheets 'boucle sur tous les onglets O du classeur
    If O.Name = C.Range("F2").Value Then OK = True 'si le nom de l'onglet de la boucle est égal à la cellule F2 de l'onglet C, OK est [Vrai]
    If OK = True Then T = T + O.Range("C37") 'si OK est [Vrai] T est égale à T plus la valeur de la cellule C37 de l'onglet O
    If O.Name = C.Range("G2").Value Then OK = False 'si le nom de l'onglet est égale à la cellule G2 de l'onget C, OK devient [Faux]
Next O 'prochain onglet de la boucle
C.Range("B3").Value = T 'renvoie le total T sans la cellule B3 de l'onglet C
End Sub