Bonjour le forum, ben68500,
A tester ce code avec le bouton "Go" placé sur la feuille "factures a céder" fichier "Facture a ceder" enregistré en .XLSM
Sub Go()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = 0
ActiveSheet.EnableFormatConditionsCalculation = 0
[A2:A65000].ClearContents
On Error Resume Next
With [A2:A65000]
.Formula = "='C:\Users\Documents\TEST\[Fichier de base]Fichier_global'!H2:H65000"
.AutoFill [H2:H65000]
.Value = .Value
End With
Application.Calculation = xlCalculationAutomatic
ActiveSheet.EnableFormatConditionsCalculation = 1
End Sub
Cordialement.