Faire une somme toutes les 5 lignes d'une colonne en VBA

Option Explicit
Option Base 1
Const Deblig As Long = 1 ' A ADAPTER AU CONTEXTE
Const Col As String * 1 = "A"  ' A ADAPTER AU CONTEXTE
'-------------------------------------

Sub add_sur_5_lig()
Dim Derlig As Long, T_in, Nbre As Integer, T_out, Cptr As Long, Cpt As Integer, Somme As Double
Dim Start As Single

    '----------initialisations
    Start = Timer
    Application.ScreenUpdating = False 'fige l'écran:confort & rapidité
    'dernière ligne utilisée
    Derlig = Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row
    'mémorisation en RAM du tableau à traiter
    T_in = Range(Cells(Deblig, Col), Cells(Derlig, Col))
    'mémorisation en ram de la taille du tableau de résultat
    Nbre = UBound(T_in) / 5
    ReDim T_out(Nbre, 1)
    
    '----------traitement
    Cpt = 1 'compteur t_out
    For Cptr = 1 To UBound(T_in)
        Somme = Somme + T_in(Cptr, 1)
        'mod 5 renvoie 0 si Cptr multiple de 5
        If Cptr Mod 5 = 0 Then
            'résultat
            T_out(Cpt, 1) = Somme
            'raz somme pour calcul des 5 suivants
            Somme = 0
            Cpt = Cpt + 1
        End If
    Next
    
    '-----------restitution en feuille 2
    With Sheets(2)
         .Columns("A").Clear 'nettoyage
        With .Range("A1").Resize(UBound(T_out, 1))
            'valeurs
            .Value = T_out
            .Borders.Weight = xlThin
          End With
          .Activate
    End With
    
    '---------------------------------la macro rend la main
    Application.ScreenUpdating = True
    MsgBox "durée sur " & UBound(T_in) & " lignes en " & Round(Timer - Start, 2) & " secondes."

End Sub