Bonjour,
Si j'ai bien compris :
Sub FORMULE()
With Worksheets("Ecritures")
.Range(.Cells(3, 8), .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, 8)).FillDown
.Range(.Cells(3, 23), .Cells(.Cells(.Rows.Count, 16).End(xlUp).Row, 23)).FillDown
.Range("TOTAL").Formula = "=" & .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, 8).Address & "+" & .Cells(.Cells(.Rows.Count, 16).End(xlUp).Row, 23).Address
End With
End Sub
Par contre vous aviez une référence circulaire où vous renvoyiez H3 dans H3 au lieu de H2 dans H3 ce qui empêche le calcul de se faire, ci-contre les formules corrigées.
Cdlt,