Sub Macro1()
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim LI As Integer 'déclare la variable LI (LIgne)
Dim I As Integer 'déclare la variable I (Incrément)
Set OS = Worksheets("Feuil1") 'définit l'onglet OS (à adapter à ton cas)
Set OD = Worksheets("Feuil2") 'définit l'onglet OD (à adapter à ton cas)
DL = OS.Cells(Application.Rows.Count, "A").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne A de l'onglet Source
LI = 1 'initialise la variable LI
For I = 1 To DL Step 3 'boucle des lignes 1 à DL par pas de 3
OS.Cells(I, "A").Copy OD.Cells(LI, "A") 'copy la cellule ligne I colonne A de l'onglet OS et la colle dans la cellule ligne LI colonne A
OS.Cells(I + 1, "A").Copy OD.Cells(LI, "C") 'copy la cellule ligne I+1 colonne A de l'onglet OS et la colle dans la cellule ligne LI colonne C
OS.Cells(I + 2, "A").Copy OD.Cells(LI, "E"): LI = LI + 5 'copy la cellule ligne I+2 colonne A de l'onglet OS et la colle dans la cellule ligne LI colonne E, redéfinit la ligne L
Next I 'prochaine ligne de la boucle
End Sub