Private Sub tictactoe_horizontal(ByRef tableau() As String)

    Dim i As Integer
    Dim j As Integer
    Dim val As String



    For i = LBound(tableau, 1) To UBound(tableau, 1)
        For j = LBound(tableau, 2) To UBound(tableau, 2)
            val = tableau(i, j)

            If tableau(i, j - 1) = val And tableau(i, j + 1) = val Then
                tictactoe_horizontal = val
            ElseIf j + 1 = UBound(tableau, 2) Then
                Call MsgBox(val)
            Else
                tictactoe_horizontal = " "
            End If

        Next
    Next


End Sub