OK, je comprends mieux les raisons de ce choix.
Essaye d'ouvrir Test4.xlsx comme ceci pour voir.
'feuilles sources et mises à jour tableaux
Workbooks.Open (sfilename)
With ActiveWorkbook
Set wsSourceArmoires = .Sheets("Armoire")
Set wsSourceFoyers = .Sheets("Support + Foyer")
Application.ScreenUpdating = False
Call MettreAJour(wsSourceArmoires, wsDestArmoires, "Armoires")
Call MettreAJour(wsSourceFoyers, wsDestFoyers, "Foyers")
.Close False
Application.ScreenUpdating = True
End With