XL 2016 En vba Recuperer une valeur d'un tableau pour etirer formule d'un autre onglet

Sub etirer()
With Sheets("GP") 'dans la feuille GP
    LastLine = .Range("A" & .Rows.Count).End(xlUp).Row 'dernière ligne NON vide de la colonne A
End With
With Sheets("Liste") 'dans la feuille Liste
    .Range("A3:D3").AutoFill Destination:=.Range("A3:D3").Resize(LastLine - 2) 'on etire la plage A3:D3 de LastLine-2 (-2 parce que les premières formules sont en ligne 3)
End With
End Sub