Public coll As Collection
__________________________
Sub remplirlacollection()
Dim n As Integer
For n = 1 To Workbooks.Count
coll.Add Workbooks(n).Name
Next n
End Sub
Utilisation:par exemple
Dim wb1 As Workbook
Dim wb2 As Workbook
Set wb1 = Workbooks(coll(1))
Set wb2 = Workbooks(coll(2))