Bonjour,

J'aimerais modifier cette macro :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub A_TEST()
Application.ScreenUpdating = False
Sheets(2).Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Dim Debut As Long, Destination As Long
Dim Decalage As Byte, Pas As Byte
Pas = 42
Decalage = 18
Destination = Decalage
Debut = 2
While Worksheets(1).Range("A65536").End(xlUp).Row > Debut
Worksheets(2).Rows(Destination & ":" & Destination + Pas - 1).Value = Worksheets(1).Rows(Debut & ":" & Debut + Pas - 1).Value
Destination = Destination + Pas + Decalage - 1
Debut = Debut + Pas
Wend
Rows("1:3").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Dans la feuille 1 se trouvent les données suivantes :



Puis ils sont copiés sur la feuille 2 comme ceci :




Or, j'aimerais qu'ils soient copiés comme cela :




Je me casse la tête depuis tout à l'heure mais je n'y arrive pas


Merci par avance pour votre aide !!