Sub Copie_Donnees_B() 'Dans classeur fermé
Dim f$
Application.ScreenUpdating = False
'j'ai remplacé la formule par une formule de test pour tester sur mon PC
'donc remettre la vraie formule pour tester en situation réelle
f = "=INT(ROUND(COLUMN()/(ROW()-1.600),2)*TODAY())"
On Error Resume Next
With [A2:I30]
.Formula = f: .Value = .Value
End With
End Sub