Sub Résultat()
Dim tablo(), i As Integer, j As Byte, col As Integer, lig As Long, h As Byte
Application.ScreenUpdating = False
[COLOR="Red"]tablo = Array(1, 11, 16, 6) '1ères colonnes des 4 premiers tableaux dans l'ordre de lecture[/COLOR]
With Sheets("Résultat")
.Range("A:D").Clear
lig = 2
For i = 0 To 20 * Application.CountA(Range("2:2")) / 12 - 20 Step 20 '12 = nombre de valeurs en ligne 2 des 4 tableaux
For j = 0 To 3
col = i + tablo(j)
h = Cells(20, col + 1).End(xlUp).Row - 1
Cells(2, col).Resize(h, 4).Copy .Cells(lig, 1)
lig = lig + h + 1
Next
Next
.Activate
End With
End Sub