Boucle pour écrire une valeur toutes les X lignes

Bonjour a tous,

For i = 8 To N_b_lignes Step N_b_couleurs + 1

Rows(i).EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove

Next

Bonjour , j'utilise ce code qui fonctionne très bien pour insérer une lignes vides toutes les N_b_couleurs,

j'aimerai a l'aide du meme type de code, si possible, écrire dans une cellule une valeur fixe type "mon_modele" toutes les N_b_couleurs...

Comment faire SVP ?

Bonjour,

For i = 8 To N_b_lignes Step N_b_couleurs + 1

cells(i, nombre_ici_correspondant_au_numéro_de_colonne_dans_lequel_tu_veux_écrire) = "mon_modele"

Next

Ca marche TOP