Sub test_P4()
'pas de 4 (par défaut)
TranZp0ZiT0r ActiveSheet.Cells(1), Sheets(2).Cells(1)
End Sub
Sub test_P6()
'pas de 6
TranZp0ZiT0r ActiveSheet.Cells(1), Sheets(2).Cells(1), 6
End Sub
Private Sub TranZp0ZiT0r(RngS As Range, RngD As Range, Optional Pas As Long = 4)
Dim vArr, t(), i&, n&
n = RngS.Cells(Rows.Count, 1).End(3).Row
vArr = RngS.Cells(1).Resize(n)
ReDim t(1 To Int(n / Pas) + 1, 1 To Pas)
For i = 1 To n
t(1 + Int((i - 1) / Pas), 1 + (i - 1) Mod Pas) = vArr(i, 1)
Next i
RngD.Resize(Int(n / Pas) + 1, Pas) = t
End Sub