Code VBA pour defusionner des cellules dans un tableau

Bonjour

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

merci

Bonjour,

à tester,

Sub test()
For Each c In Range("D1:D30")
    If c.Value <> "" Then
        n = n + 1
        Range("G" & n + 7) = c
    End If
Next c
End Sub

merci de la réponse

le problème c'est que les bordures n'y sont plus

vinciHorus a écrit :
merci de la réponse
le problème c'est que les bordures n'y sont plus

un autre possibilité,

Sub test()
For Each c In Range("D1:D30")
    If c.Value <> "" Then
        n = n + 1
        c.Copy Range("G" & n + 7)
    End If
Next c
End Sub