Sub SepareGroupe()
Dim h As Hyperlink
For Each h In [C:C].Hyperlinks
h.Parent.EntireRow.Insert
Next
Groupe
End Sub
Sub Groupe()
Dim plage As Range, a As Range
On Error Resume Next 'si pas de constantes
Set plage = [D:D].SpecialCells(xlCellTypeConstants)
For Each a In plage.Areas
If a.Count > 1 Then a(1) = Join(Application.Transpose(a), ", ")
Next
End Sub