Eclatement de cellules avec conservation de contenu

Bonsoir à tous.

J'ai un tableau à colonnes multiples. dans l'une des colonnes j'ai les réferences et, sur certaines lignes j'ai parfois plusieurs références. je souhaiterais faire une macros permettant de mettre chaque référence sur une ligne (en copiant le reste de la la ligne)

Je mets un EXCEL en Pj ce sera surement plus clair !! le premier tableau c'est ce que j'ai actuellement et le deuxième ce que je voudrais obtenir

Merci d'avance (en espérant que quelqu'un pour m'aider)

PS: Je travaille sur EXCEL 2010

bonsoir,

éclatement de la colonne i. faut-il faire la même chose avec la colonne H ?

Sub extractref()
Dim a
With Worksheets("feuil1")
derlig = .Range("a" & .Rows.Count).End(xlUp).Row
For i = derlig To 1 Step -1
a = Split(.Range("i" & i), vbLf)
chk = False
For k = UBound(a) To LBound(a) + 1 Step -1
 chk = True
.Rows(i).Copy
.Rows(i + 1).Insert Shift:=xlDown
.Range("i" & i + 1) = a(k)
Next k

If chk Then .Range("i" & i) = a(0)

Next i
End With
End Sub

non juste la i. pour la H il faut copier la même

merci

Impeccable ! ca marche nikel