Sub grouper()
    Dim i&, aa, sh, fin&, fin1&
    
    For Each sh In Array("feuillealpha", "feuillebeta", "feuillegamma")
        fin = Sheets(sh).Cells.Find("*", , xlValues, , 1, 2, 0).Row
        aa = Sheets(sh).Range(Sheets(sh).Cells(2, 1), Sheets(sh).Cells(fin, 24))
        fin1 = Feuil6.Cells.Find("*", , xlValues, , 1, 2, 0).Row + 1
        Feuil6.Cells(fin1, 1).Resize(UBound(aa), UBound(aa, 2)).FormulaLocal = aa
        Erase aa
    Next sh
    
end sub