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