Bonjour Delphine, le Forum
Si j'ai bien compris tu as une Plage (Ici "A1:A10") sur une Feuille (Ici "TheSheet") qui contient des noms de Fichiers...
Si tous les fichiers sont dans le même répertoire (Chemin) voici ce qui devrait faire l'affaire :
Sub LoopOpeningWorkBook()
Dim Chemin As String
Dim Fichier As String
Dim Plage As Range, Cell As Range
Chemin = "C:\Documents and Settings\te\My Documents\"
Set Plage = Worksheets("TheSheet").Range("A1:A10")
For Each Cell In Plage
Fichier = Cell.Text & ".xls" '<<< NB Si l'extension XLS n'est pas dans le tableau, sinon enlever!
Workbooks.Open Chemin & Fichier
Next
End Sub
Bien Entendu il faut que les fichiers listé de A1 à A10 existent bien sinon plantage assuré (et non géré ici)
Bon Appétit
@+Thierry