Excel: Regroupement de cellules

Sub concatNonVide()
    Const sep As String = ", "
    Dim datas, result() As String, lig As Long, col As Long, msg As String
    If Selection.Cells.Count = 1 Then MsgBox "Sélectionner une plage svp": Exit Sub
    If Selection.Column < 2 Then MsgBox "Il faut 1 colonne libre à gauche de la sélection": Exit Sub
    msg = "Cette action va écraser " & Selection.Resize(, 1).Offset(, -1).Address
    msg = msg & vbLf & "Continuer ?"
    If MsgBox(msg, vbOKCancel, "Confirmation") = vbOK Then
        datas = Selection.Value
        ReDim result(1 To UBound(datas), 1 To 1)
        For lig = 1 To UBound(datas, 1)
            For col = 1 To UBound(datas, 2)
                If datas(lig, col) <> "" Then result(lig, 1) = result(lig, 1) & sep & datas(lig, col)
            Next col
            If result(lig, 1) <> "" Then result(lig, 1) = Mid(result(lig, 1), Len(sep))
        Next lig
        Selection.Offset(, -1).Resize(UBound(result), 1) = result
    End If
End Sub