Duppliquer lignes dont une colonne a plusieurs codes produits

Bonjour les pros de la macro,
Je voudrais créer une macro qui vient copier les lignes qui comportent plusieurs numéros de codes produits en dupliquant les autres colonnes de la ligne comme suit :


- Les codes produits font toujours 7 caractères et sont séparés d’un espace
- Les codes doivent être ajoutés les un en dessous des autres : un code par ligne
- Toutes les autres colonnes doivent être copiées
- Le nombre de code produits par cellule varient entre 1 et 100
- La macro devrait fonctionner pour un grand nombre de ligne

Pour le moment ma macro ne marche pas, pourriez-vous m’aider à la faire fonctionner ?

Sub lignesCodesproduits ()
Dim h as string
Dim i as integer
For j = range(“A65536”)>End(x1up).Row to Step -1
Do while Len(cells(i,4)) > 8
For i = 1 to 100
Value.cells(i,4) = h
Rows(i).InsertShift=x1Down
Rows(i+1).CopyRows(i)
cells(i+1,4)=mid(cells(i,4),7,(len(cells(i,4))-7))
cells(i,4)=left(h(i,8))
i = i+1
Next
Loop
Next
End Sub ()

Merci mille fois :))))))))))