Valeur textbox dans une colonne de longueur variable

bonjour à tous et encore merci d'avance pour votre aide
voila mon souci

Code:

---

1 2 3 4 5 6 7 8 9 10

Range("G5").Select ActiveCell.Value = Userform1!TextBox1   Range("G6").Select   ActiveCell.FormulaR1C1 = "=R[-1]C" Range("G6").Select Selection.AutoFill Destination:=Range("g6:g" & Range("A5").End(xlDown).Row), Type:=xlFillDefault   TextBox1.Value = ""

---

ce code marche, le probleme est lorsque je veux changer la valeur d'une ligne en particulier, les lignes en dessous de la case modifiée vont prendre aussi la modif
ce que je voudrais , c'est de ne pas utiliser la formule

Code:

---

1 2 3

ActiveCell.FormulaR1C1 = "=R[-1]C" Range("G6").Select Selection.AutoFill Destination:=Range("g6:g" & Range("A5").End(xlDown).Row), Type:=xlFillDefault

---

mais seulement avoir un range variable du type

Code:

---

1 2	Range("g6:g" & Range("A5").End(xlDown).Row).Select ActiveCell.Value = Userform1!TextBox1

---

mais cela ne fonctionne pas avec ce code

j'ai une idée
il suffirait dans ce code peut etre
au lieu de

Code:

---

ActiveCell.FormulaR1C1 = "=R[-1]C"

---

mettre

Code:

---

ActiveCell.FormulaR1C1 = "=Textbox1"

---

mais ça marche pas lol

c bon

Code:

---

1 2 3 4 5 6 7 8 9 10

Range("G5").Select ActiveCell.Value = Userform1!TextBox1   Range("G6").Select   ActiveCell.FormulaR1C1 = Userform1!TextBox1.Value Range("G6").Select Selection.AutoFill Destination:=Range("g6:g" & Range("A5").End(xlDown).Row), Type:=xlFillDefault   TextBox1.Value = ""

---

merci moi lool