Microsoft 365 probleme passage paramètre dans une fonction

Function compare_ligne(matrice1() As Variant, matrice2() As Variant, i&, ii&) As Boolean
    Dim go_on As Boolean
    
    go_on = True
    If matrice1(i, 1) = matrice2(ii, 1) Then
        If matrice1(i, 2) = matrice2(ii, 2) Then
            If matrice1(i, 3) = matrice2(ii, 3) Then
            Else: go_on = False
            Exit Function
        Else: go_on = False
        Exit Function
    Else: go_on = False
    compare_ligne = go_on
End Function

Sub test00()
    Dim ncol%, i&, ii&
    Dim tablo1() As Variant, tablo2() As Variant, tablo3() As Variant, tablo4() As Variant
    Dim toto1, toto3, toto0, go_on As Boolean
    
    For i = 1 To UBound(tablo1)
        For ii = 1 To UBound(tablo3)
            If compare_ligne(tablo1, tablo3, i, ii) = True Then
                tablo1(i, ncol) = Chr(1) 'repère
                tablo3(ii, ncol) = Chr(1) 'repère
            End If
        Next ii
    Next i
End Sub

If <test> Then
    <Instruction(s)>
Else
    <Instruction(s)>
End If

Ou
  
If <test> Then <Instruction> Else <Instruction>

Ou

If <test> Then
    <Instruction(s)>
End If

Ou

If <test> Then <Instruction>

Select Case matrice1(i, 1) = matrice2(ii, 1) And matrice1(i, 2) = matrice2(ii, 2) And matrice1(i, 3) = matrice2(ii, 3)
Case True
    MsgBox "c'est vrai"
Case False
    MsgBox "c'est faux"
'    go_on = False
'    Exit Function
End Select

Select Case matrice1(i, 1) = matrice2(ii, 1) And matrice1(i, 2) = matrice2(ii, 2) And matrice1(i, 3) = matrice2(ii, 3)
Case False
    MsgBox "c'est faux"
'    go_on = False
'    Exit Function
Case True
    MsgBox "c'est vrai"
End Select