Sub recup()
'Parametre d'importation
ThisWorkbook.Activate
Dim Source As String
ligne=ActiveCell.row
colonne=ActiveCell.column
for n=19 to 50
Source = Sheets("PARAMETRES").Range("K" & n)
Chemin = Source ' chemin d'accés
fichier = Dir(Chemin & "*????-????-??.xls")
Do While fichier <> ""
Workbooks.Open Filename:=Chemin & fichier
'localisation des données à extraire
Dim Effectif As String, NumGestion As String
Effectif = Sheets("BALANCE").Range("D89")
NumGestion = Sheets("PARAMETRES").Range("D9")
'Extraction des données
ThisWorkbook.Sheets("AjoutEffectif").Activate
'ActiveCell.Value = Effectif
'ActiveCell.Offset(0, 1).Select
'ActiveCell.Value = NumGestion
Cells(ligne+n-19,colonne)=Effectif
Cells(ligne+n-19,colonne+1)=NumGestion
Windows(fichier).Close savechanges:=False ' fermeture du fichier sources sans enregistrer les changements
ThisWorkbook.Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
fichier = Dir ' Fichier suivant
Loop
next
End Sub