Avec l'oWS
FormulaRow =. Cellules (. Rows.Count, « d »). Extrémité (- 4162). Rangée + 'xlUp 2
.range (« c » et FormulaRow et » : f " et FormulaRow). Formule = « =SUM (C2 : c » et (FormulaRow - 2) et ") «
. Cells.Font.Size = 10
. Rangées (1).Font.Bold = rectifient
.UsedRange.EntireColumn.AutoFit
.range (« H : J ») .NumberFormat = « 0.00% ; [Rouge] 0.00% »
.range (« C : F ») .NumberFormat = « #, ##0.00 ; [Rouge] #, ##0.00 »
Extrémité avec
|