Sub Copie()
Dim lig As Integer, p As String, nomfich As String
Application.ScreenUpdating = False 'fige l'écran (pour accélérer)
Range("A2:D" & Rows.Count).ClearContents 'efface la plage de restitution
lig = 2 'restitution à partir de la ligne 2 (si titres en ligne 1)
p = ThisWorkbook.Path & "\"
nomfich = Dir(p & "*.xls*") '1er fichier du dossier
While nomfich <> ""
If nomfich <> ThisWorkbook.Name Then
Cells(lig, 1) = nomfich 'nom du fichier en colonne A
Cells(lig, 2).Formula = "='" & p & "[" & nomfich & "]Feuil1'!C6" 'Feuil1 => nom de la feuille à adapter...
Cells(lig, 3).Formula = "='" & p & "[" & nomfich & "]Feuil1'!C81"
Cells(lig, 4).Formula = "='" & p & "[" & nomfich & "]Feuil1'!C83"
Cells(lig, 2).Resize(, 3) = Cells(lig, 2).Resize(, 3).Value 'supprime les formules
lig = lig + 1
End If
nomfich = Dir 'fichier suivant du dossier
Wend
Cells(2, 2).Resize(lig - 1, 3).Replace 0, "", xlWhole 'efface les valeurs zéro
End Sub