Me gustaria que me explicaran paso a paso este codigo, gracias de antemano.

Dim ligne, débutOrg, f, forga, inth, intv, Tbl(), n, d

Sub DessineAscendants()

Set forga = Sheets("BD")

Set f = Sheets("bd")

Set d = CreateObject("Scripting.Dictionary")

Tbl = f.Range("A2:I" & f.[A65000].End(xlUp).Row).Value

n = UBound(Tbl)

Set débutOrg = forga.Range("I23")

ligne = 0

inth = 60

intv = 40

liginit = ActiveCell.Row - 1

lig = ActiveCell.Row - 1

couleur = IIf(Tbl(lig, 4) = "M", f.Cells(2, 2).Interior.Color, f.Cells(2, 3).Interior.Color)

créeShapeP Tbl(lig, 1), couleur, 0, IIf(Tbl(lig, 4) = "M", "AM", "AF"), " "

End Sub

@[uSER=168820]ccf22armdv[/uSER]

Información precaria. Por favor, lee las Normas del Foro

Saludos

Esta macro es de un archivo que me bajé y que quería saber si se pueden añadir mas ascendant para el caso de ampliar la lista de nombres.Me refiero a el diagrama que sale debajo al hacer clic en el boton de macro, y que mi lista de ascendientes es bastante mayor que el ejemplo y no se como ampliar dicho diagrama, el de los descendientes está bien.Les mando el archivo de ejemplo y les agradezco de antemano su ayuda.Si me lo explican paso a paso tambien me encantaria gracias.

ArbreGenealogique.rar