J'ai trouvé la solution !
Sub Consolidation()
'Déclaration des variables
Dim varNomFichier
Dim varNomClasseurConso
varNomClasseurConso = 'Classeurwdghlwdghcvklsd.xls'
Dim varPassword
Dim CelluleCourante As Range
Dim CelluleSuivante As Range
'Détermine où sera la cellule courante
Set CelluleCourante = Sheets('Fichiers').Range('A1')
'Boucle : Cette boucle s'exécutera tant que la cellule courante ne sera pas vide
Do Until CelluleCourante.Value = ''
varNomFichier = CelluleCourante.Value
varPassword = CelluleCourante.Offset(0, 1).Value
Set CelluleSuivante = CelluleCourante.Offset(1, 0)
Workbooks.Open Filename:='C
OSSIERS\\BD Qualité' & varNomFichier, Password:=varPassword
'Fermeture du fichier source
Workbooks(varNomFichier).Activate
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
Set CelluleCourante = CelluleSuivante
Loop
Exit Sub
End Sub
Le forum doit-être une source d'inspiration...