XL 2016 somme ligne Tableau 2D

Public Function SommeMaxligne(ByRef Tableau_Terrain() As Long, ByRef Tableau_Carte() As Long) As Long
    Dim MaxLigne As Long
    Dim i As Integer
    Dim j As Integer
   
    SommeMaxligne = 0
   
    For i = LBound(Tableau_Carte, 1) To UBound(Tableau_Carte, 1)
        MaxLigne = 0
       
        For j = LBound(Tableau_Carte, 2) To UBound(Tableau_Carte, 2)
            If Tableau_Carte(i, j) > MaxLigne And Tableau_Carte(i, j) > SeuilRentabilite Then
                MaxLigne = Tableau_Carte(i, j)
            End If
        Next j
        SommeMaxligne = SommeMaxligne + MaxLigne
    Next i
End Function

Public Sub Tester()
    Dim Tableau_Carte(1 To 4, 1 To 5) As Long
    Dim Tableau_Terrain(1 To 4, 1 To 5) As Long
    Dim i As Long
    Dim j As Long
    Dim Somme As Long
   
    For i = LBound(Tableau_Carte, 1) To UBound(Tableau_Carte, 1)
        For j = LBound(Tableau_Carte, 2) To UBound(Tableau_Carte, 2)
            Tableau_Carte(i, j) = Val(InputBox("Entrer un valeur pour Tableau_Carte(" & i & ", " & j & ")"))
        Next j
    Next i
       
    Somme = SommeMaxligne(Tableau_Terrain(), Tableau_Carte())
    Call MsgBox(Somme)
End Sub