Option Base 1 'à toi de voir pourquoi !
Sub testSi()
Dim T(),L as long, i As long, tablo()
[S:T] = ""
L = [C65000].End(xlUp).Row
T = Range("C20:E" & l)
ReDim tablo(1 To Ll, 1 To 2)
For i = 1 To UBound(T)
tablo(i, 1) = T(i, 1): tablo(i, 2) = T(i, 3) 'pour 2 colonnes
Next
Range("S10").Resize(UBound(tablo), 2) = tablo 'sans transposer !
End Sub