Salut,
On peut l'écrire aussi avec
select case x
case 1, 4, 7, 10, 13
For i = 1 To 500 ' les lignes
Tablo(i, z) = celTab.Offset(i, z)
Next i
end select
Mais on peut écrire en une seule boucle:
Sub tabmulti()
Dim X As Integer
Dim celTab As Range
Dim celDaReport As Range
dim T
T=array(1, 4, 7, 10, 13)
Set celTab = Range("B35:Q535") 'ou mieux peut être range([B35], [Q65536].end(xlup)
Set celDaReport =Range("U35")
for x=0 to ubound(t(x))
celDaReport.cells(1,t(x)).resize(celtab.rows.count)=celtab.columns(t(x)).value
next x
end sub
A+++