Regrouper les colonnes 2 à 2

Sub Deux_Colonnes()
'Feuil1 et Feuil2 sont les CodeNames des feuilles
Dim P As Range, h&, lig&, col%
Set P = Feuil1.[A1:N7] 'à adapter
h = P.Rows.Count - 1
lig = 2
Application.ScreenUpdating = False
With Feuil2
  .Cells.Delete 'RAZ
  P(1).Resize(, 2).Copy .[A1] 'titres
  For col = 1 To P.Columns.Count Step 2
    P(2, col).Resize(h, 2).Copy .Cells(lig, 1)
    lig = lig + h
  Next
  .Activate 'facultatif
End With
End Sub

Sub Deux_Colonnes()
Dim F As Worksheet, a, lig&, i%, P As Range, h&, col%
Set F = Feuil1 'CodeName
a = Array("A1:N7", "A8:N14") 'adresses des tableaux, à adapter
lig = 2
Application.ScreenUpdating = False
With Feuil2 'CodeName
  .Cells.Delete 'RAZ
  F.Range(a(0)).Resize(1, 2).Copy .[A1] 'titres
  For i = 0 To UBound(a)
    Set P = F.Range(a(i))
    h = P.Rows.Count - 1
    For col = 1 To P.Columns.Count Step 2
      P(2, col).Resize(h, 2).Copy .Cells(lig, 1)
      lig = lig + h
    Next
  Next
  .Activate 'facultatif
End With
End Sub