Sub Consolider()
Application.ScreenUpdating = False 'ne pas voir ce qui se passe à l'écran
Application.DisplayAlerts = False
For lgn = 2 To 65 'pour boucler sur les lignes 2 à 65
Sheets("Ref").Select
regate = Cells(lgn, 1).Value 'on variabilise, regate = cellule ligne de la boucle, colonne 1
Workbooks.Open ("U:\PUBLIC\DOTC\DFI\CGC\Nathalie\Trajectoire\" & regate & ".xls")
‘on ouvre le fichier où se trouve les données du premier CC
Range("A2:Q35").Select
Selection.Copy
Workbooks("" & regate & ".xls").Close 'fermer le fichier
Windows("Consolidation.xls").Activate ‘on se place sur le fichier consolidation, qui est déjà ouvert d’où windows
Sheets("Base").Select
If [a2] = "" Then Range("a1").Activate Else Selection.End(xlDown).Select
ActiveCell.Activate
ActiveCell.Offset(1, 0).Activate 'pour se placer sur la prochaine ligne vierge
ActiveSheet.Paste
Range("a1").Select
Workbooks(regate & ".xls").Activate
Sheets("données").Visible = False
Workbooks(regate & ".xls").Close 'fermer le fichier
Next ‘on boucle
End Sub