[Hervé]

bonjour

peut etre une piste à travers ce code :

Dim c As Range
Dim Chemin$
Dim i As Integer
Dim colonne As Byte
Dim lignedebut As Integer, lignedefin As Integer

Chemin = "D:\repertoire\"


Set c = Cells.Find(".xls")
If Not c Is Nothing Then
    colonne = c.Column
    lignedebut = c.Row
    lignedefin = Cells(65536, colonne).End(xlUp).Row
    For i = lignedebut To lignedefin
        Workbooks.Open Chemin & Cells(i, colonne)
    Next i
End If

salut