Copier autommatiquement toutes les 20 lignes

Bonjour,

Je voudrais créer une macro afin de copier automatiquement la ligne 2 sous toutes les dates soit 20 lignes.

Je n'arrive pas réellement à créer des macros, quand j'en ai besoin je fais une recherche et j'utilise ce que je trouve.

Mais là je n'ai rien trouvé, en espérant que mon explication soit claire

Cordialement

Bonjour

Sub Copie()
Application.ScreenUpdating = False
ActiveSheet.Range("A2:K2").Copy
Range("A2:A" & [A65000].End(xlUp).Row).Select
Nb = Selection.Rows.Count / 20
    For I = 1 To Nb
    ActiveCell.Offset(20, 0).Select
    ActiveSheet.Paste
    Next I
    Application.CutCopyMode = False
    Range("A1").Select
End Sub

Cordialement

Un grand merci

Cordialement