VBA problème de formule ajout de ligne en dessous et non au-dessus

Bonjour je me permets de venir vers vous pour solliciter votre aide.

J'ai une formule macro pour récupérer des informations sur la feuille formulaire et les remplir sur une nouvelle feuille listing 1APG en cliquant sur validé.

J’aimerai que l'ajout des lignes se fasse en dessous a et non au-dessus de celle-ci.

Cordialement.

Ps : voici la macro et le fichier Excel

Sub Macro5()
'
' Macro5 Macro
'

'
    Sheets("1APG").Select
    Range("B5:D5").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Sheets("1APG").Select
    Range("B5").Select
    ActiveCell.FormulaR1C1 = "=Formulaire!R[4]C[1]"
    Range("C5").Select
    ActiveCell.FormulaR1C1 = "=Formulaire!R[4]C[5]"
    Range("D5").Select
    ActiveCell.FormulaR1C1 = "=Formulaire!R[10]C[5]"
    Range("B5:D5").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Formulaire").Select
End Sub

Bonjour,

Voici un essai où il faudra adapter les références (A1, A2, A3) de la feuille formulaire qu'on reporte sur 1APG :

Sub Macro5()
with sheets("Formulaire")
    t = array(.range("A1").value, .range("A2").value, .range("A3").value)
end with
with Sheets("1APG")
    nvl = .cells(.rows.count, 2).end(xlup).row + 1
    .range("B:D").rows(nvl).value = t
end with
End Sub

Cdlt,

Merci beaucoup !!!!!!!!!