Bonjour et bienvenue,
on doit pouvoir faire çà avec une petite macro,
envoie une feuille exemple avec résultats attendus
pas besoin des 400 lignes
Amicalement
Claude
-- Ven Oct 01, 2010 7:00 pm --
re,
en attendant vois cet essai
Sub EnColonnes()
'par Claude Dubois pour "mohoch05" Excel-Pratique le 01/10/10
Dim Lg%, i%, Cl As Byte, N As Byte
Application.ScreenUpdating = False
Lg = Range("A65536").End(xlUp).Row
Cl = 2
N = 0
For i = 1 To 3
Range("k2") = "=a2=" & N
Range("a1:a" & Lg).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("k1:k2"), CopyToRange:=Cells(1, Cl), Unique:=False
Cl = Cl + 1
N = N + 1
Next i
Range("b1:d1,k2").Clear
End Sub
Claude