Sub es()
'creation tblo
tblo = Feuil1.Range("AC2:AJ" & Feuil1.Range("AJ" & Rows.Count).End(xlUp).Row)
'ce que je fais actuellement, mais qui n'est pas très rapide car 200000 lignes...
Set F = Feuil1
For i = 2 To F.Range("AC" & Rows.Count).End(xlUp).Row 'boucle
tbl(F.Cells(i, 29), F.Cells(i, 30), 1) = F.Cells(i, 31)
tbl(F.Cells(i, 29), F.Cells(i, 30), 2) = F.Cells(i, 32)
tbl(F.Cells(i, 29), F.Cells(i, 30), 3) = F.Cells(i, 33)
tbl(F.Cells(i, 29), F.Cells(i, 30), 4) = F.Cells(i, 34)
tbl(F.Cells(i, 29), F.Cells(i, 30), 5) = F.Cells(i, 35)
tbl(F.Cells(i, 29), F.Cells(i, 30), 6) = F.Cells(i, 36)
Next
End Sub