Lire Excel

Bonjour,

J'ai essaie de lire un fichier excel et de récupérer les valeurs, mais il y a un petit problème en lisant les données de chaque ligne et colonne.

Option Strict On
Option Explicit On
Imports System
Imports System.ComponentModel
Imports System.Configuration
Imports System.Data
Imports System.Data.OleDb
Imports System.Drawing
Imports Microsoft.Office.Interop.Excel
Imports System.Runtime.InteropServices
Imports System.Text

Dim ObjExcel As Excel.Application
Dim ObjBook As Excel.Workbook
Dim ObjSheet As Excel.Worksheet
Dim ObjData As Excel.Range
Dim i, j As Integer
Dim t As Object

ObjExcel = New Excel.Application
'ObjBook = New Excel.Workbook 'On a pas besoin d'instancier
ObjSheet = New Excel.Worksheet

Try
ObjExcel.Visible = True
ObjBook = ObjExcel.Workbooks.Open(TxtChemin.Text())
ObjSheet = CType(ObjBook.Worksheets(1), Excel.Worksheet)
ObjExcel.Range("A1:E3").Select()
'Compter le nombre des lignes
'While Not (ObjBook.

'End While
'Fin compter le nombre des lignes
For i = 1 To ObjExcel.Range("A1:E3").Rows.Count()
For j = 1 To ObjExcel.Range("A1:E3").Columns.Count()
t = ObjData.Range(i, j).Value 'Je bloque sur cette code
'MsgBox("Lignes:" & i & " colonnes:" & j)
Next
Next
Catch ex As Exception

End Try
ObjExcel.Workbooks.Close()
ObjExcel.Quit()
ObjExcel = Nothing

J'ai une grande probleme sur cette ligne de code qui recupére les données sur chaque ligne et colonne:
t = ObjData.Range(i, j).Value 'Je bloque sur cette code