Dupliquer formules écrite en VBA

Bonjour à toutes et tous.

Voici mon problème :

Je débute en VBA et j'ai enregistré une macro me permettant de comprendre petit à petit les codes.

Il s'agit d'une macro dans laquelle je sélectionne une cellule pour y enregistrer une formule.

Voici le code :

Sub N°ORDRE()

'

' N°ORDRE Macro

'

'

Range("B270").Select

ActiveCell.FormulaR1C1 = "=IF(ISBLANK(RC[-1]),"""",R[-1]C+1)"

Range("B271").Select

ActiveCell.FormulaR1C1 = "=IF(ISBLANK(RC[-1]),"""",R[-1]C+1)"

Range("B272").Select

ActiveCell.FormulaR1C1 = "=IF(ISBLANK(RC[-1]),"""",R[-1]C+1)"

Range("B273").Select

End Sub

Ma question est la suivante : comment inscrire cette formule dans une colonne sans à chaque fois retaper la formule dans la cellule du dessous, dans la même colonne ? Formule, dont vous pouvez le voir, est croissante de +1 à chaque fois lorsque je passe à la cellule du dessous en "B..."

D'avance, merci pour votre précieuse aide

Bonjour,

Pour cela, il te faut faire une foucle (Pour toutes cellules de B270 à B273 faire telle instruction° :

'Création de la boucle
For i = 270 to 273
    Activesheet.cells(i,2).FormulaR1C1 = "=IF(ISBLANK(RC[-1]),"""",R[-1]C+1)"
Next i 

Merci

Autre question me venant à l'esprit : possibilité de masquer les formules/cellules (pour éviter les suppressions par de tiers personnes) mais sans que ce soit en verrouillant la feuille et/ou le classeur ?

A part protection de la feuille, pas à ma connaissance

C'est le type de réponse qui ressort à chaque fois, tant pis si ça n'est pas possible !