Bonsoir , grâce a vous , j'utilise ce code qui fonctionne a merveille For i = Ligne_Depart To N_b_lignes Step N_b_couleurs + 1 Rows(i).EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove Ce code m'insère une ligne vide toutes les N_b_couleurs + 1.. parfait Le besoin évolue, au lieu d'insérer une ligne , il faudrait maintenant insérer une cellule vide toutes les N_b_couleurs + 1 dans la colonne B et non pas une ligne entiere . Possible ?