Macro copier coller lignes en colonnes

[WITER]

Bonsoir à tous, voila j ai un classeur avec une feuille "Tableau_de_suivi" ou il y à 4289 lignes je voudrait mettres les colonnes O1 à 04289 dans ma feuille1 sur une colonnes de 12 lignes soit 12X la meme cellule en colonnes en A1. Ensuite les cellules T1:T4289 sur une colonnes de 12 lignes et ensuite les cellules AR:BC sur une colonnes de 12 lignes EN C1 et ensuite BD:BO sur une colonnes de 12 lignes en D1:

Voici un exemple pour etre plus claire:

O1 T1 AR AS AT AU AV AW (jusqu'a BC) BD BE BF
MR CLEM 01 02 03 04 05 06 12 13 14

Apres la macro

A1 B1 C1 D1
MR CLEM 01 13
MR CLEM 02 14
MR CLEM 03 15
MR CLEM 04 16
MR CLEM 05 17
MR CLEM 06 18
MR CLEM 07 19
MR CLEM 08 20
MR CLEM 09 21
MR CLEM 10 22
MR CLEM 11 23
MR CLEM 12 24

Voici la macro que jai faite avec l 'enregistreur, je voudrais quelle fonctionne sur mes 4289 lignes.

Merci d'avance pour votre aide

 

[WITER]

Re : Macro copier coller lignes en colonnes

Oups voici la macro


Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 21/01/2008 par C'est pas moi
'

'
Range("AR2:BC2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil1").Select
Range("B13").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Tableau_de_suivi").Select
ActiveWindow.ScrollColumn = 42
ActiveWindow.ScrollColumn = 43
ActiveWindow.ScrollColumn = 44
ActiveWindow.ScrollColumn = 45
ActiveWindow.ScrollColumn = 46
ActiveWindow.ScrollColumn = 47
ActiveWindow.ScrollColumn = 48
ActiveWindow.ScrollColumn = 49
Range("BD2:BO2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil1").Select
Range("C13").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Tableau_de_suivi").Select
ActiveWindow.ScrollColumn = 48
ActiveWindow.ScrollColumn = 47
ActiveWindow.ScrollColumn = 46
ActiveWindow.ScrollColumn = 45
ActiveWindow.ScrollColumn = 44
ActiveWindow.ScrollColumn = 43
ActiveWindow.ScrollColumn = 42
ActiveWindow.ScrollColumn = 41
ActiveWindow.ScrollColumn = 40
ActiveWindow.ScrollColumn = 39
ActiveWindow.ScrollColumn = 38
ActiveWindow.ScrollColumn = 37
ActiveWindow.ScrollColumn = 36
ActiveWindow.ScrollColumn = 35
ActiveWindow.ScrollColumn = 34
ActiveWindow.ScrollColumn = 33
ActiveWindow.ScrollColumn = 32
ActiveWindow.ScrollColumn = 31
ActiveWindow.ScrollColumn = 30
ActiveWindow.ScrollColumn = 29
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
Range("T3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil1").Select
Range("A13:A24").Select
ActiveSheet.Paste
Sheets("Tableau_de_suivi").Select
Range("O3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil1").Select
Range("D1324").Select
ActiveSheet.Paste
End Sub