Macro VB- Range ou offset avec formule

Bonjour

Dans une macro,
Je cherche à copier une FormuleCompliquee
dansla Première Colonne de la case A1 à la case A de numero de ligne : DeuxiemeFormule

En language excel :
FormuleCompliquee
=MAX(SIERREUR(EQUIV("zz";INDIRECT(ADRESSE(LIGNE();COLONNE()+3+1;4)):INDIRECT(ADRESSE(LIGNE();1048576;4)));0);SIERREUR(EQUIV(9^9;INDIRECT(ADRESSE(LIGNE();COLONNE()+3+1;4)):INDIRECT(ADRESSE(LIGNE();16384;4)));0))

DeuxiemeFormule :
=MAX(SIERREUR(EQUIV("zz";INDIRECT(ADRESSE(1;COLONNE()+3+1;4)):INDIRECT(ADRESSE(1048576;COLONNE()+3+1;4)));0);SIERREUR(EQUIV(9^9;INDIRECT(ADRESSE(1;COLONNE()+3+1;4)):INDIRECT(ADRESSE(1048576;COLONNE()+3+1;4)));0))

En language VB
FormuleCompliquee
😀 INS1 😀
ActiveCell.FormulaR1C1 = _
"=MAX(IFERROR(MATCH(""zz"",INDIRECT(ADDRESS(1,COLUMN()+3+1,4)):
INDIRECT(ADDRESS(1048576,COLUMN()+3+1,4))),0),
IFERROR(MATCH(9^9,INDIRECT(ADDRESS(1,COLUMN()+3+1,4))
:INDIRECT(ADDRESS(1048576,COLUMN()+3+1,4))),0))"

DeuxiemeFormule
😀 INS2 😀
ActiveCell.FormulaR1C1 = _
:"=MAX(IFERROR(MATCH(""zz"",INDIRECT(ADDRESS(ROW(),COLUMN()+3+1,4))
:INDIRECT(ADDRESS(ROW(),1048576,4))),0),IFERROR(MATCH(9^9,
INDIRECT(ADDRESS(ROW(),COLUMN()+3+1,4))
:INDIRECT(ADDRESS(ROW(),16384,4))),0))"

Comme je suis débutant en VB,
Merci de me figurer tout le code (avec les 😀 INS1 😀 et 😀 INS 2 😀
qu'il est inutile de recopier )

Merci pour le dépannage. S'il vous en plait. Bien entendu.


N.B : La Deuxième Formule est la taille de la première colonne de n'importe quel de votre document excel 2007 tronquée des quatre premières colonnes réservées à l'analyse du document et à la création sur le tas de la macro

La Formule Compliquée est la taille en céllules de la ligne
(à partir de la cinquième colonne)

Ces deux formules sont à mettre sur la première colonne