Macro pour copier jusqu'en bas de tableau - formules lourdes

Bonjour à vous,

Je commence tous juste à me mettre à la macro et j'aurais besoin de votre aide.

J'aurais besoin de faire défiler mes formules jusqu'en bas de mon tableau (et si possible que ça s'arrete en automatique avant la 65 536eme ligne ).

Le seul souci une de mes formules demande beaucoup de ressource. Pour ce faire j'avais commencé par faire une macro qui copiait ma formule par tranche de 1000 lignes. J'ai essayé de faire une boucle sans succès :S

Mes tableaux sont très souvent consistués de la même façon pour alléger mes fichiers je laisse sur les lignes 2 et 3 (en rouge gras) mes formules et le reste des données de mes fichiers sont en valeur.

Un fichier sera plus parlant!!

Merci d'avance,

Cdlt

Fro

Bonjour ,

Essaye avec sa :

For i = 2 To 65535
    Range("M" & i).FormulaLocal = "=SI(H" & i & "=""QX"";K" & i & "/10;0)"
    Range("N" & i).FormulaLocal = "=GAUCHE(I" & i & ";4)"
    Range("Q" & i).FormulaLocal = "=P" & i & "&I2"
    Range("R" & i).FormulaLocal = "=GAUCHE(S" & i & ";2)"
    Range("T" & i).FormulaLocal = "=A" & i & "&I" & i & ""
    Range("U" & i).FormulaLocal = "=SI(NB.SI($T$" & i & ":T" & i & ";T" & i & ")>1;"""";1)"
Next i

cordialement