Sub concat()
Dim tablo()
With Sheets("SG")
For Each c In .[A1:A88] 'à adapter
If c <> "" Then
ReDim Preserve tablo(6, i)
tablo(0, i) = CLng(c)
For Each mc In c.MergeArea.Cells
tablo(1, i) = tablo(1, i) & " " & mc.Offset(0, 1)
Next mc
tablo(2, i) = c.Offset(0, 2)
tablo(3, i) = c.Offset(0, 3)
tablo(4, i) = CLng(c.Offset(0, 4))
tablo(5, i) = c.Offset(0, 5)
i = i + 1
End If
Next c
.[H1].Resize(i, 6) = Application.Transpose(tablo)
End With
End Sub