rajouter une colonne et décaler la formule

Bonjour,
J'ai un tableau auquel on ajoute une colonne chaque trimestre
Ce tableau va récupérer ses valeurs sur une autre feuille via une formule
j'aimerais créer un bouton pour rajouter une colonne à la fin qui prenne comme formule la même que celle de la dernière colonne mais avec un décalage (c'est là que je bloque)

les formules des colonnes précédentes:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Range("X10").Select ActiveCell.FormulaR1C1 = _ "=IF('Hist_taux rec'!R[2]C[94]=0,NA(),'Hist_taux rec'!R[2]C[94])" Range("W10").Select ActiveCell.FormulaR1C1 = _ "=IF('Hist_taux rec'!R[2]C[89]=0,NA(),'Hist_taux rec'!R[2]C[89])" Range("V10").Select ActiveCell.FormulaR1C1 = _ "=IF('Hist_taux rec'!R[2]C[84]=0,NA(),'Hist_taux rec'!R[2]C[84])" Range("U10").Select ActiveCell.FormulaR1C1 = _ "=IF('Hist_taux rec'!R[2]C[79]=0,NA(),'Hist_taux rec'!R[2]C[79])"

---

Comme on peut le voir, la seul chose qui change c'est la valeur C[X] --> C[X+5] à chaque nouvelle colonne
J'aurais donc voulu savoir si c'était possible de copier de copier la formule et remplacer dedans le C[X] par C[X+5]

Merci d'avance.

Bonjour,

Quelque chose comme ceci peut-être ?

Code:

---

1 2 3 4 5 6 7 8 9

Dim I As Long Dim Valeur As Long   Valeur = 79 For I = 21 To 24 'colonnes U à X Cells(10, I).FormulaR1C1 = _ "=IF('Hist_taux rec'!R[2]C[" & Valeur & "]=0,NA(),'Hist_taux rec'!R[2]C[" & Valeur & "])" Valeur = Valeur + 5 Next

---