Message erreur indice n'apparitent pas a la selection

Private Sub TestTrouverPlusProcheVoisin()
Dim pointVisites(1, 3) As Boolean
Dim tabMatrice(3, 3) As Double
Dim point As Integer
Dim pointproche As Integer

tabMatrice(1, 1) = 0
tabMatrice(1, 2) = 1.41421
tabMatrice(1, 3) = 2.82843
tabMatrice(2, 1) = 1.41421
tabMatrice(2, 2) = 0
tabMatrice(2, 3) = 1.41421
tabMatrice(3, 1) = 2.82843
tabMatrice(3, 2) = 1.41421
tabMatrice(3, 3) = 0

pointVisites(1, 1) = True
pointVisites(1, 2) = False
pointVisites(1, 3) = False

point = 1


Public Function TrouverPlusProcheVoisin(ByRef tabMatrice() As Double, _
                                        ByRef tabVisite() As Boolean, _
                                        ByVal pointDep As Integer, _
                                        ByRef pointproche As Integer) As Boolean


' pointDepart c'est l'indice dans notre test exemple 'point = 1

Dim i As Integer        'pour parcourir le tableau
Dim valMin As Double     ' valeur minimum



pointproche = LBound(tabMatrice)
valMin = constInfini  ' contient la valeur 10000
  
'Cette boucle passe a traver la matrice pour trouver la distance minimum
For i = 1 To UBound(tabMatrice, 1) ' To UBound(tabMatrice, 1) 'chaque ligne du tableau ' test
   <underline> <bold>If tabVisite(i) = False And tabMatrice(pointDep, i) < valMin Then</bold></underline>
       pointproche = i
       valMin = tabMatrice(pointDep, i)
    Else
       TrouverPlusProcheVoisin = False
    End If
        
Next i

TrouverPlusProcheVoisin = True
End Function

Call MsgBox(TrouverPlusProcheVoisin(tabMatrice, pointVisites, point, pointproche))
End Sub