Bonjour,
Merci beaucoup!
ça fonctionne! par contre je voulais l'adapter pour des cas différents
est-ce possible de mettre des commentaires avec des explications pour les lignes suivantes :
Range(mytotalrange.Offset(, 2), mytotalrange.Offset(, 5)).Select
Selection.FormulaR1C1 = "=SUM(R[-" & myrows & "]C:R[-1]C)"
ActiveCell.Offset(-myrows, 4).Select
Range(Selection, Selection.Offset(myrows + 1)).Select
Selection.FormulaR1C1 = "=SUM(R C[-4]:RC[-1])"
Range(mytotalrange.Offset(1, 2), mytotalrange.Offset(1, 5)).Select
Selection.NumberFormat = " 00.00%"
For Each b In Selection
b.Select
ActiveCell.FormulaR1C1 = "=R[-1]C/R[-1]C[" & (5 - bb) & "]"
bb = bb + 1
Next
merci beaucoup