Sub MAJ()
Dim nom$, chemin$, ad$, w As Worksheet, f$
nom = "Source.xlsx" 'nom du fichier source, à adapter
ad = "A1:J200" 'plage maximum à copier
chemin = ThisWorkbook.Path 'à adapter si nécessaire
Application.ScreenUpdating = False
For Each w In Worksheets
f = "'" & chemin & "\[" & nom & "]" & w.Name & "'!"
If Not IsError(ExecuteExcel4Macro(f & "R1C1")) Then 'test de sécurité
With w.Range(ad)
.FormulaArray = "=IF(" & f & ad & "=0,""""," & f & ad & ")" 'formule matricielle
.Value = .Value 'supprime les formules
.Columns.AutoFit 'ajustement largeur
End With
End If
Next
End Sub