Réponse acceptée !
pour le parcour d'un fichier excel :
Dans Projet...Références coches Microsoft Excel XX Object Library


Public ClasseurXLS As Object ' a mettre tout en haut du Code de ta forme

Private Sub Command1_Click() ' Code du Bouton

MousePointer = 11

Set ClasseurXLS = CreateObject("Excel.application")
ClasseurXLS.Workbooks.Open "C:\Toto.xls"
For i = 1 To 5000 ' Parcour les 50000 Premiéres ligne
If ClasseurXLS.Cells(i, "A") = "" Then Exit For ' Sort de la Boucle si la Cellule A - i est vide
Valeur1=ClasseurXLS.Cells(i, "A") ' Lecture de la Valeur des Cellules A - i
Valeur2=ClasseurXLS.Cells(i, "B") ' Lecture de la Valeur des Cellules B - i
Next
ClasseurXLS.Workbooks.Close ' Fermeture du Classeur d' Importation
MousePointer = 1

End Sub

It@li@