[VBA|Excel] Décaler des lignes

1 pièce(s) jointe(s)

Salut à tous j'ai un petit soucis de programmation:

Un utilisateur saisie un nombre de produits finis, semis et matiere premiere dans un userform dont les chiffres se reportent sur la feuil2 dans les cases qui correspondent

Ces produits s'écrivent chacun à la ligne sur une feuille excel
je voudrais que entre chaque "intitulé" il y est un espacement de 6 lignes et que sur la droite de chaque intitulé soit marqué quelque chose

donc pour faire cours je vous montre comment c'est:

__________A__________B__________C __________D___________E
1------------------------------------------------------------------
2------------------------------------------------------------------
3------------------------------------------------------------------
4------------------------------------------------------------------
5-------------------produit 1
6-------------------produit 2
7-------------------semis 1
8-------------------etc.....

et je voudrais que ca devienne comme ca

__________A__________B__________C __________D___________E
1------------------------------------------------------------------
2------------------------------------------------------------------
3------------------------------------------------------------------
4------------------------------------------------------------------
5-------------------produit 1-----besoin brut
6--------------------------------stock debut
7--------------------------------besoin net
8--------------------------------besoin decalé
9--------------------------------stock final
10-------------------------------------------------------------------
11-------------------produit 2-----besoin brut
12--------------------------------stock debut
13--------------------------------besoin net
14--------------------------------besoin decalé
15--------------------------------stock final16
16-----------------------------------------------------------------------
17 etc....
18
19
21
22

Je vous remercie par avance et je vous joins le fichier (feuille 2, userform7)

Kouichtionne : La feuille, dans ton fichier n'est pas ce que tu veux ? Parce que sinon, ça ne correspond pas à ta demande.
Tu dis

1 pièce(s) jointe(s)

Ca se passe sur la feuille 2

J'ai résolu le probleme de décalage, il reste plus qu'a arriver a copier sur chaque ligne ou il y a un intitulé:
besoin brut
stock debut
besoin net
besoin décalé
stock final

la programmation de la boucle est:
Code:

1 2 3 4 5 6 Range("B7").Select 'Selection.Offset(1, 0).Select Do Range(Selection, Selection.Offset(5, 0)).Insert Shift:=xlDown Selection.End(xlDown).Offset(1, 0).Select Loop While Selection <> ""