Sub Macro1()
Dim f$: f = "=OFFSET(RC58,,R[-1]C[-107])" [COLOR=Green]'<- formule d'Hoerwind[/COLOR]
With Range("DD5")
.FormulaR1C1 = f: .AutoFill .Resize(, 5), xlFillDefault
.Resize(, 5).AutoFill Range("DD5:DH9"), xlFillDefault
[COLOR=Green]'Mettre en commentaires
' les 3 lignes ci-dessous si on veut garder les formules[/COLOR]
With .Resize(5, 5)
.Value = .Value
End With
End With