Sub MAJ()
Dim chemin$, fichier$, ncol%, fich$, c As Range, col%, cc As Range
chemin = ThisWorkbook.Path & "\"
fichier = Dir(chemin & "*.xlsx") '1er fichier du dossier
ncol = 16 'nombre de colonnes du tableau de Stats, à adapter
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
While fichier <> ""
fich = Left(fichier, Len(fichier) - 5)
Set c = Columns(1).Find(fich, , xlValues, xlWhole, , xlPrevious)
If Not c Is Nothing Then
With Workbooks.Open(chemin & fichier).Sheets("SNAP") 'ouverture du fichier
For col = 3 To ncol
Set cc = .Cells.Find(c(1, col))
If Not cc Is Nothing Then
c(2, col) = cc(3)
c(3, col) = cc(4)
c(4, col) = cc(2)
c(5, col) = cc(5)
End If
Next col
.Parent.Close False
End With
End If
fichier = Dir 'fichier suivant
Wend
Application.Calculation = xlCalculationAutomatic
End Sub