Code qui de-fusionne des cellules et le transforme

Bonjour

J'aimerais avoir un code qui de-fusionne des cellules dans un tableau comme indiqué dans ce fichier joint

merci

Salut vinciHorus,

voici une idée, à tester

Sub test()
Dim i, j As Integer
j = 7
For i = 7 To 18
If Range("D" & i) <> "" Then
Range("H" & j) = Range("D" & i)
Range("I" & j) = Range("E" & i)
j = j + 1
End If
Next i
End Sub

@++

Merci de ta reponse

est ce possible que le nouveau tableau vient remplacer l'ancien