Re : Transposition
J'ai fini par trouver
Sub test()
Dim a As Worksheet, b As Worksheet
Set a = Sheets("base")
Set b = Sheets("test")
Dim Src As Range, Dst As Range
Set Src = a.Range("A1"): Set Dst = b.Range("A1")
While Src.Value <> vbNullString
Dst.Resize(, 3) = Application.Transpose(Src.Resize(3))
Set Dst = Dst.Offset(1): Set Src = Src.Offset(3)
Wend
End Sub