Macro fusion de feuille

Bonjour,

Quelqu'un peut me traduire ligne par ligne ce code simple en PJ directement sur le fichier que vous me renvoyerez ? je m'auto forme en VBA...

merci !

Salut Croco,

Sub grouper()
    Dim i&, aa, sh, fin&, fin1&

    For Each sh In Array("feuillealpha", "feuillebeta", "feuillegamma")           'For chaque feuille de l'Array
        fin = Sheets(sh).Cells.Find("*", , xlValues, , 1, 2, 0).Row            'on cherche la dernière ligne comptant une valeur
        aa = Sheets(sh).Range(Sheets(sh).Cells(2, 1), Sheets(sh).Cells(fin, 24))    'capture des valeurs en tableau aa
        fin1 = Feuil6.Cells.Find("*", , xlValues, , 1, 2, 0).Row + 1            'on cherche la première ligne vide dans 'Feuil6'...
        Feuil6.Cells(fin1, 1).Resize(UBound(aa), UBound(aa, 2)).FormulaLocal = aa    '...pour y copier le tableau aa
        Erase aa                                    'effacement du tableau aa
    Next sh                                        'Next Sh in Array

end sub

Par contre, je ne pige pas trop ce que fait là 'FormulaLocal'... ça fonctionne mais...

A+