Bonjour,
Le principe est l'utilisation de la fonction MOD (modulo : reste de la division euclidienne). Mais dans votre cas, étant donné que le nombre de lignes peut varier, je pense qu'il est préférable de passer par un code VBA :
Sub Multi()
with activesheet
dl = .cells(.rows.count, 1).end(xlup).row
redim t(1 to 201, 1 to int(dl/201) - (dl mod 201 > 0))
for i = 1 to dl
j = i mod 201
select case j
case 0: j = 201
case 1: k = k + 1
end select
t(j, k) = .cells(i, 1).value
next i
.cells(1, 3).resize(ubound(t), ubound(t, 2)).value = t
end with
end sub
Il faut faire Alt + F11 puis, dans le menu de l'éditeur Visual Basic, aller sur Insertion/Module/Double-cliquer sur ce module (apparu dans la fenêtre de projets à gauche) et y coller ce code. Faire F5 pour l'exécuter.
Attention, il faut bien que les valeurs en colonne A commencent en A1 !
Cdlt,