Erreur dans ma macro ?

Option Explicit
Option Base 1
Dim T_in
Const Code As Integer = 1572
'---------------------------------------------------------
Sub main()
 Dim Derlig As Byte, Cptr As Byte
 
    Application.ScreenUpdating = False 'fige défilement écran: confort rapidité
        Sheets("synthese").Range("A6:E10000").Clear 'nettoyage
        With Sheets("original")
            Derlig = .Columns("A").Find("", .Range("A5")).Row - 2 'dernier client
            T_in = .Range("A6:CH" & Derlig) 'mémorisation RAM tableau complet: rapidité traitement
            For Cptr = 1 To UBound(T_in)
                Call par_client(Cptr) 'appel traitement des succursales (client)
            Next
        End With
        
         With Sheets("synthese")
            .Columns("E").NumberFormat = "0.00" 'format 2 décimales
            .Activate 'présentation
        End With
End Sub
'----------------------------------------------
Sub par_client(Lig)
Dim T_out(), Col As Byte, Cpt As Byte, Ligvid As Integer

       For Col = 12 To 85 Step 9
            If T_in(Lig, Col) > 0 Then 'si crédit > 0
                Cpt = Cpt + 1
                ReDim Preserve T_out(5, Cpt) 'mémorisation des traitement pour chaque succursale
                T_out(1, Cpt) = T_in(Lig, 1) '#client
                T_out(2, Cpt) = T_in(Lig, 2) 'client
                T_out(3, Cpt) = Code '#item
                 With Sheets("original")
                    T_out(4, Cpt) = .Cells(1, Col - 8) & " " & Format(.Cells(5, Col), "0%")  'fournisseur%
                End With
                T_out(5, Cpt) = T_in(Lig, Col) 'crédit
            End If
        Next
        Cpt = Cpt + 1
        ReDim Preserve T_out(5, Cpt)
        T_out(1, Cpt) = "SOUS TOTAL " & T_in(Lig, 2)
        T_out(5, Cpt) = T_in(Lig, 86) 'total crédit

        'restitution client
        With Sheets("synthese")
            Ligvid = .Columns("A").Find("", .Range("A5")).Row '1° ligne vide
            'restitution T_out
            .Cells(Ligvid, "A").Resize(Cpt, 5) = Application.Transpose(T_out)
            'mise en gras sous total client
            .Rows(Ligvid + Cpt - 1).Font.Bold = True
        End With
End Sub