Sub Creer_Base_Accroi()
Application.ScreenUpdating = False 'ne pas voir ce qui se passe à l'écran, diminue besoin mémoire
Application.DisplayAlerts = False
For lgn = 29 To 29 'pour boucler sur les lignes
Sheets("Ref").Select 'on se place sur la feuille de référence
regate = Cells(lgn, 1).Value 'on variabilise, indic = cellule ligne de la boucle, colonne 1
Workbooks.Open ("U:\PUBLIC\DOTC\DFI\CGC\Commun\Remontee Outil FTV3\07_2006\" & regate & ".xls")
Sheets("CDD accroi").Select
Range("A9:G200").Select
Selection.Copy
Windows("CDD_test.xls").Activate
Sheets("Base_Accroi").Select
If [a3] = "" Then Range("b3").Activate Else Selection.End(xlDown).Select
ActiveCell.Activate
ActiveCell.Offset(1, 0).Activate
ActiveSheet.Paste
Range("a1").Select
'' Windows(regate & ".xls").Activate
'' Range("a2").Select
'' Selection.Copy
'' Windows("CDD_test.xls").Activate
'' ActiveCell.Activate
'' ActiveCell.Offset(0, -1).Activate
ActiveSheet.Paste
Range(" a1 ").Select
Workbooks(regate & ".xls").Close 'fermer le fichier
Next lgn ' on continue sur 2nd, 3èm.. indicateur (boucle)
Application.ScreenUpdating = True
End Sub