Bonjour à tous!

Alors voici mon petit soucis:
J'ai écrit un code me permettant de copier une ligne (en l'occurrence A2) pour ensuite la coller plusieurs fois en dessous (je ne prend que les champs allant de A à P).
Par la suite, je copie 1 par 1 les cases Q2, R2, S2, T2, U2 ,V2 pour les coller sur la colonne QX correspondante.

Voici le code:
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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
 Sub Macro6()
'copie de la ligne 3
Rows("3:3").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A2:P2").Select
Selection.Copy
Range("A3").Select
ActiveSheet.Paste
'copie du format 3
Range("R2").Select
Application.CutCopyMode = False
Selection.Copy
Range("Q3").Select
ActiveSheet.Paste
'suppression de la colonne format 3
Range("R1:R2").Select
Range("R2").Activate
Selection.ClearContents
'copie de la ligne 3
Rows("4:4").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A3:P3").Select
Selection.Copy
Range("A4").Select
ActiveSheet.Paste
'copie du format 3
Range("S2").Select
Application.CutCopyMode = False
Selection.Copy
Range("Q4").Select
ActiveSheet.Paste
'suppression de la colonne format 3
Range("S1:S2").Select
Range("S2").Activate
Selection.ClearContents
End Sub
J'aimerais faire une boucle pour que le processus s'exécute jusqu'en bas de la worksheet pour chaque ligne (Malgré mes tentatives je n'y parviens pas).

Merci à celui qui m'aidera (si tu habites à l'est de Paris, je serais ravi de t'offrir une bonne pinte ou un café! :D