Accès aux valeur d'une cellule Excel VB.Net

Salut !

Je suis en train d'écrire un programme qui renomme des fichiers à partir d'un tableau excel.
Dans la colonne A il y a le nom actuel du fichier, dans la B le nouveau nom. Si le programme tombe sur un nom de fichier qui n'existe pas dans le répertoire spécifié il le note dans un fichier texte.

Le problème se situe au niveau de l'accès aux données dans une cellule. voila mon code :

   

        Imports System
        Imports System.IO
        Imports System.Collections
        Imports Microsoft.Office.Interop.Excel
        Imports Microsoft.Office.Interop
   
        Dim appExcel As Excel.Application
        Dim wbExcel As Excel.Workbook
        Dim wsExcel As Excel.Worksheet
        Dim c1 As String = "A"
        Dim c2 As String = "B"
        Dim l1 As Integer = 0

        appExcel = CreateObject("Excel.Application")
        wbExcel = appExcel.Workbooks.Open(chemin_f)
        wsExcel = wbExcel.Worksheets(1)
        appExcel = CreateObject("Excel.Application")

        wbExcel = appExcel.Workbooks.Open(chemin_f)
        wsExcel = wbExcel.Worksheets(1)

        'nom_courant = wsExcel.Range("A1").Value
        'MsgBox(nom_courant)

        Do While nom_courant = ""

            nom_courant = wsExcel.Range(c1 & l1).Value
            nom_nouveau = wsExcel.Range(c2 & l1).Value

            MsgBox(nom_courant)

            i+=1

         Loop

Le programme n'arrive pas à accéder au données, en plus il ne retourne aucun code d'erreur.

Si quelqu'un pourrait m'éclairer ...

Merci d'avance !


ERP-S.