Ouvrir Excel côté client et non côté serveur

Public Sub ButtonLancerExcel_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim app As Object
 
        Try
            app = CreateObject("Excel.Application")
            app.Visible = True
            Dim wb As Object
            wb = app.workbooks.add
            Dim arr(19, 9) As Object 
                For j = 1 To 10
                    arr(i - 1, j - 1) = i * j
                Next
            Next
            Dim rng As Object
            rng = wb.Activesheet.Range("A1").Resize(20, 10)
            rng.value = arr
        Catch
        Finally
            app.UserControl = True
            app = Nothing
        End Try
    End Sub