Copier et insérer le meme bloc de lignes plusieurs fois Exce

Bonjour,

Une facon de faire

Sub Macro1()
    Range("A1:H3").Select           'plage selectionnee
    Selection.Copy
    'Pour récupérer l'adresse de la plage sélectionnée :
    'adr = Selection.Address(0, 0)
    'première ligne :
    L1 = Selection(1).Row
    'dernière ligne de la sélection :
    LF = Selection(Selection.Count).Row
    N = 3          'nombre de fois copie
    NbL = LF - L1 + 1       'nombre de ligne de la selection
    'parametre pour la copie
    PCV = Range("A" & Rows.Count).End(xlUp).Row + 1 'premier cellule vide colonne A
    R = PCV + (N * NbL) - 1 'derniere ligne plage de copie
    Range("A" & PCV & ":A" & R).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub