Dim lien As String, fichier(1 To 3), i As Integer
lien = "\\serveur\1\2\3"
fichier(1) = "Qual V4.xls"
fichier(2) = "Log V4.xls"
fichier(3) = "analyse.xls"
Set Source = Workbooks("Base de Données.xlsm").Worksheets("Feuil1")
nbl = Source.[D3].End(xlDown).Row - 2
'Passage en calcul manuel
With Application
.Calculation = xlManual
End With
'Boucle sur les 3 fichiers
For i = 1 To 3
'Ouverture du fichier
Workbooks.Open (lien & "\" & fichier(i))