Sub recup()
'Parametre d'importation
ThisWorkbook.Activate
Dim Source As String, Fichier As String
ThisWorkbook.Sheets("EXPORT").Activate ' vider la feuille EXPORT
Cells.Select
Selection.Delete Shift:=xlUp
Range("A1").Select
ThisWorkbook.Sheets("BASE").Activate 'filtrer les sites sur lequel il y a du CA
ActiveSheet.Range("$A$1:$O$2999").AutoFilter Field:=12, Criteria1:="1"
ActiveSheet.Range("$A$1:$O$2999").AutoFilter Field:=6, Criteria1:="=*T1*", _
Operator:=xlAnd
Columns("A:O").Select 'coller la nouvelle base dans EXPORT
Selection.Copy
Sheets("EXPORT").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ligne = 2 'ligne d'ecriture
colonne = 16 ' colonne d'ecriture
For n = 12 To 18
Source = Sheets("BASE").Range("O" & n)
Fichier = Source & ".xl" + "**"
Workbooks.Open Filename:=Fichier
Application.DisplayAlerts = False
Application.AskToUpdateLinks = False
'localisation des données à extraire
Dim Effectif As String, NumGestion As String, Jours As String
Effectif = Sheets("BALANCE").Range("D89")
NumGestion = Sheets("PARAMETRES").Range("D9")
Jours = Sheets("RESULTAT").Range("C8")
'Extraction des données
ThisWorkbook.Sheets("EXPORT").Activate
Cells(ligne, colonne) = NumGestion
Cells(ligne, colonne + 1) = Effectif
Cells(ligne, colonne + 2) = Jours
ligne = ligne + 1
Windows(Fichier).Close savechanges:=False 'fermeture du fichier sources sans enregistrer les changements
ThisWorkbook.Activate
Range("p65536").End(xlUp).Offset(1, 0).Select
Next
End Sub