Excel fusion de cellules [Résolu]

Sub eliot()
    Set vzone = Selection
    vtxt = vzone.Range("a1").Value
    For i = 2 To vzone.Rows.Count
        vtxt = vtxt & Chr(10) & vzone.Cells(i, 1).Value
        vzone.Cells(i, 1).ClearContents
    Next
    vzone.Range("a1").Value = vtxt
    With vzone
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    vzone.Range("a1").Value = vzone.Range("a1").Value
End Sub

Sub Concatenation_Cellulle()
    Dim vzone As Range
    Dim vtxt As Variant
    Dim i As Long
    
    Selection.UnMerge
    
    Set vzone = Selection
    vtxt = ""
    For i = 1 To vzone.Rows.Count
        If Len(vzone.Cells(i, 1).Value) > 0 Then
            If Len(vtxt) > 0 Then
                vtxt = vtxt & Chr(10) & Trim(vzone.Cells(i, 1).Value)
            Else
                vtxt = Trim(vzone.Cells(i, 1).Value)
            End If
            
        End If
        vzone.Cells(i, 1).ClearContents
    Next
    vtxt = Trim(vtxt)
    vzone.Range("a1").Value = vtxt
    With vzone
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    vzone.Range("a1").Value = vzone.Range("a1").Value
End Sub