Copier coller d'une colonne à une autre avec boucle

Bonjour,

Je suis debutant sur VBA, je cherche à faire un copier coller des cellules de la colonne A vers la colonne B Avec les conditions suivantes:

• Debut de la copie à la cellule A6 à coller dans la cellule B3.
• Cette copie est à réaliser toutes les 12 lignes (Step 12). Cela donne donc cellule A6 en B3, Cellule A18 en B15 etc jusqu'a la derniere ligne du fichier

le fichier est en PJ si jamais quelqu'un est en mesure de m'aider

bonjour,

une proposition

Sub aargh()
    With ActiveSheet
        n = 6
        Do Until .Cells(n, "A") = ""
            .Cells(n - 3, "B") = .Cells(n, "A")
            n = n + 12
        Loop
    End With
End Sub