Pour créer les déclinaisons sur Cdiscount :
Sub Fusionner()
Dim c As Range
For Each c In Selection
If c.MergeCells = False And c = c.Offset(1, 0) Then
Dim p As Range
Set p = c
Dim c2 As Range
Set c2 = c.Offset(1, 0)
Do While c2 = c
If Intersect(c2, Selection) Is Nothing Then
Exit Do
End If
Set p = Union(p, c2)
Set c2 = c2.Offset(1, 0)
Loop
Application.DisplayAlerts = False
p.Merge
Application.DisplayAlerts = True
p.HorizontalAlignment = xlCenter
p.VerticalAlignment = xlCenter
End If
Next
End Sub
Ensuite, revenir sur Excel :
© Documentation interne — FeedPerf