une formule pour x cellules

bonjour à tous,

je cherche à savoir comment faire pour incrémenter une formule identique à plusieurs cellules sans refaire quinze mille fois le même code en changeant uniquement le range parce que ca prend beaucoup de place

ex: au lieu d'avoir:
Range('ce2').Select
ActiveCell.FormulaR1C1 = _
'=IF(RC[-78]/RC52=1,100,IF(RC52/RC[-78]<>0,(RC[-78]/RC52)*100,''''))'
Range('ce3').Select
ActiveCell.FormulaR1C1 = _
'=IF(RC[-78]/RC52=1,100,IF(RC52/RC[-78]<>0,(RC[-78]/RC52)*100,''''))'
Range('ce4').Select
ActiveCell.FormulaR1C1 = _
'=IF(RC[-78]/RC52=1,100,IF(RC52/RC[-78]<>0,(RC[-78]/RC52)*100,''''))'
jusqu'à ce20, la seule chose changeant étant juste le range.



j'aimerais pouvoir avoir une formule unique pour tous mes range concernées et j'avais pensé que cela marcherait:
Range('ce2:ce' & nb).Select
ActiveCell.FormulaR1C1 = _
'=IF(RC[-78]/RC52=1,100,IF(RC52/RC[-78]<>0,(RC[-78]/RC52)*100,''''))'

le problème étant que comme cela, ça ne marche pas alors qu'est ce qui ne va pas dans ce code? sachant que nb est déjà calculé

merci 🙂