Excel - Macro: tenir compte de la dernière ligne d'un tableau

Sub derniereligne()
Dim derlig As Integer
derlig = Columns("A").Find("*", , , , , xlPrevious).Row
MsgBox derlig
End Sub

Option Explicit

Sub addtionner_par_transit()
Dim Derlig  As Integer, Cptr As Integer
Dim T_transit(), T_ak(), T_out()
Dim somme As Double, ligne As Integer, Ref As Long

'------Initialisations
     Application.ScreenUpdating = False
     Range("BJ2:BJ1000").ClearContents
     'mise en RAM des données et résultats
     Derlig = Columns("A").Find("*", , , , , xlPrevious).Row
     T_transit = Application.Transpose(Range("A2:A" & Derlig).Value)
     T_ak = Application.Transpose(Range("AK2:AK" & Derlig).Value)
     ReDim T_out(1 To Derlig - 1)
     
'------ Calcul des sommes AK par Transit n°
    For Cptr = 1 To UBound(T_transit)
          somme = 0
          ligne = Cptr
          Ref = T_transit(Cptr)
          On Error GoTo fin
          While T_transit(Cptr) = Ref
               somme = somme + T_ak(Cptr)
               Cptr = Cptr + 1
          Wend
          Cptr = Cptr - 1
         'mémorise résultat
          T_out(ligne) = somme
    Next
'------ affichage des sommes par transit n°
fin:
    T_out(ligne) = somme
    Range("BJ2").Resize(UBound(T_out), 1) = Application.Transpose(T_out)

End Sub