Une macro serait elle la bonne solution? Ahhhhhhhh au secours, s il vous plait aidez moi

Up

Bonjour michel_m, voici un extrait de mon fichier et du résultat que je souhaites. http://cjoint.com/?dloD1JxcDN
penses tu que cela est réalisable sans avoir a faire 36000 copier coller.
merci de ton aide

Ha oui juste une précision la transposition se fait sur une autre feuille

Pour l'autre feuille, c'est trop tard et de plus tu ne précises pas le nom de la feuille...alors la transposition se fait en colonne J comme tu me l'as indiqué sur ta pièce jointe

Sub transposer()
Dim derlig As Long, cptr As Long

Application.ScreenUpdating = False
derlig = Range("a65536").End(xlUp).Row
lig = 2

For cptr = 2 To derlig
    Cells(lig, 10) = Cells(cptr, 1)
    Cells(lig + 1, 10) = Cells(cptr, 2)
    Cells(lig + 2, 10) = Cells(cptr, 3)
    Cells(lig + 3, 10) = Cells(cptr, 4)
    Cells(lig + 4, 10) = Cells(cptr, 5)
   lig = lig + 5
Next

End Sub

Un grand merci pour ton aide michel_m!
tu peux pas savoir l'epine que tu me tire du pied!
désolé de n'avoir pas été assez précis sur mon post mais je savais pas trop ce dont tu avais besoin.
bonne journée, encore merci et à beintot sur le site.

Nous aimerions savoir si ça a bien marché. C'est bien, la retraite ! Surtout aux Antilles ... :-)
☻ Raymond ♂

Ca marche nikel!