Faire une boucle VBA 4 to dernière ligne col C, renseignée

bonsoir le forum

j'utilise un code pour mettre une formule dans une colonne

j'utilise une boucle for n = 4 to 1000

ce code met environ 3 à 4 sec sur mon pc pour se terminer

est-il possible d'accélerer le code en mettant for 4 to dernière ligne renseignée

For n = 4 To 1000 'ecrit formule dans la colonne s ex ligne 4  si(c4="";"";$r$3&b4)
Range("s" & n).FormulaLocal = "=si(c" & n & "="""";"""";$r$3&b" & n & ")"
Next n

la colonne qui sera renseignée à coup sur est la colonne C il y en a d'autre mais je préfererais le test sur celle ci

cela va t'il accélérer le code? ou pas

je précise que je ne peux pas passer par une formule classique en dur sur la feuille

merci de votre aide

Bonjour

Un essai

J'ai transformé ta formule pour donner la même chose mais sans boucle

Sub test()
  Range("S4:S" & Range("A" & Rows.Count).End(xlUp).Row).Formula = "=IF(RC3="""","""",R3C18&RC2)"
End Sub

la colonne A sert de référence : La formule sera copiée jusqu'au niveau de la dernière ligne de la colonne A

bonsoir banzaï et merci

c'est quasi instantané maintenant

bonne soirée