concaténer colonnes sur nouvelle feuille

=INDIRECT("Feuil"&COLONNE()-6&"!G"&LIGNE()-1)

Sub test()
Dim i As Byte, y As Byte

Application.ScreenUpdating = False
' Teste si la feuille "Données" existe déjà
If Not Sheets(Sheets.Count).Name = "Données" Then
  Worksheets.Add after:=Sheets(Sheets.Count)
  ActiveSheet.Name = "Données"
End If
' Initialise la 1ère colonne de la feuille "Données"
y = 8
For i = 1 To Sheets.Count - 1
  With Sheets(i)
    .Range("G1").Resize(.Range("G65536").End(xlUp).Row, 1).Copy _
      Sheets("Données").Cells(65536, y).End(xlUp)(2)
  End With
  y = y + 1 ' Décale d'une colonne à droite
Next i
Application.ScreenUpdating = True
End Sub