Sub Budget()
For i = 5 To 7 'Des colonnes E à G
fichier = Cells(1, i).Value
Workbooks.Open Filename:= _
"M:\Reporting\BUDGET 2011\BUDGET 2011 - REMONTEES SITES DEF\4- SIMUL V6-12-2011\" & fichier _
, UpdateLinks:=0
'Avec le fichier ouvert
With ActiveWorkbook
'on récupère les données de la feuille GUICHET BUDGET 2011
Plg = .Sheets("GUICHET BUDGET 2011").Range("U6:U62").Value
'On ferme le fichier ouvert
.Close False
End With
' on colle les valeurs sur la feuille du classeur Synthese FB2.xlsm
'Remplacer toto2 par le bon nom de feuille
ThisWorkbook.Sheets("Toto2").Cells(5, i).Resize(57, 1) = Plg
'Prochaine colonne
Next i
End Sub