Sub Recup()
Dim Fichier As String
Dim Chemin As String
Dim I As Integer
'adapter le chemin où se trouvent les classeurs
Chemin = "D:\dossier test\"
'récupère tous les classeurs Excel .xlsx (pas les autres, donc à adapter)
Fichier = Dir(Chemin & "*.xlsx")
'évite les entêtes
I = 1
'boucle sur tous les classeurs afin de récupérer les valeurs dans la feuille 1 ("feuille 1") et la feuille 2 ("Feuil2")
'adapter le nom des feuille
Do While Fichier <> ""
I = I + 1
'récupère les valeurs par formules
Range("A" & I).Value = Fichier
Range("A" & I).Offset(0, 1).Formula = "='" & Chemin & "[" & Fichier & "]feuille 1'!A1"
Range("A" & I).Offset(0, 2).Formula = "='" & Chemin & "[" & Fichier & "]feuille 1'!C6"
Range("A" & I).Offset(0, 3).Formula = "='" & Chemin & "[" & Fichier & "]feuille 1'!F4"
Range("A" & I).Offset(0, 4).Formula = "='" & Chemin & "[" & Fichier & "]feuille 2'!A4"
Range("A" & I).Offset(0, 5).Formula = "='" & Chemin & "[" & Fichier & "]feuille 2'!E6"
Range("A" & I).Offset(0, 6).Formula = "='" & Chemin & "[" & Fichier & "]feuille 2'!H3"
'et ne garde que les valeurs
Range("A" & I).Offset(0, 1).Value = Range("A" & I).Offset(0, 1).Value
Range("A" & I).Offset(0, 2).Value = Range("A" & I).Offset(0, 2).Value
Range("A" & I).Offset(0, 3).Value = Range("A" & I).Offset(0, 3).Value
Range("A" & I).Offset(0, 4).Value = Range("A" & I).Offset(0, 4).Value
Range("A" & I).Offset(0, 5).Value = Range("A" & I).Offset(0, 5).Value
Range("A" & I).Offset(0, 6).Value = Range("A" & I).Offset(0, 6).Value
'fichier suivant
Fichier = Dir
Loop
End Sub