Macro excel pour renvoie d'une plage donnée sur une feuille

Option Explicit
Option Base 1
'---------------------------------------------------------------------------
Sub socio_villes()
Dim Cptr As Byte, Col As Byte
Dim Ville As String, T_pop, T_eau, T_lig7, T_lig23
ReDim T_pop(43, 24)
ReDim T_eau(43, 24)
ReDim T_lig7(1, 23)
ReDim T_lig23(1, 23)

'---------------- parcours les feuilles de ville
    For Cptr = 1 To 43
        'ville
         With Sheets(Cptr + 2)
         Ville = .Range("M2")
            '----population
            T_lig7 = .Range(.Cells(7, 2), .Cells(7, 24))
            'eau
            T_lig23 = .Range(.Cells(23, 2), .Cells(23, 24))
            '---collecte données annuelles
            For Col = 1 To 23
                'population
                T_pop(Cptr, 1) = Ville
                T_pop(Cptr, Col + 1) = Round(T_lig7(1, Col), 1)
                'consommation eau
                T_eau(Cptr, 1) = Ville
                T_eau(Cptr, Col + 1) = Round(T_lig23(1, Col), 0)
            Next
         End With
    Next
'---------------------restitution population
        Sheets("population").Range("A3:X46") = T_pop
        Sheets("population").Range("A3:X46").Borders.Weight = xlThin
'---------------------restitution consommation eau
        Sheets("consom").Range("A3:X46") = T_eau
        Sheets("consom").Range("A3:X46").Borders.Weight = xlThin
End Sub