Modification formules feuille source lors d'un copier/coller

Bonjour à tous,

J'ai un léger soucis avec ce code :

Sub Copie_liste()

Dim Ligne As Long
Dim Ligne2 As Long

Application.ScreenUpdating = False

Ligne = 19
Ligne2 = Sheets("Liste").Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row + 1
lg = Sheets("Liste").Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1

For n = 1 To Ligne2
    If Sheets("Liste").Range("A" & n) = Sheets("Calcul").Range("A" & Ligne) Then
    
        lg = n

    End If
Next n

Sheets("Calcul").Select
    Range("A" & Ligne & ":" & "AG" & Ligne).Select
Selection.Copy
Selection.PasteSpecial xlValues, xlNone, False, False
        
Sheets("Liste").Select
    Range("A" & lg).Select

ActiveSheet.Paste

Application.ScreenUpdating = True
End Sub

La macro effectue bien la copie de la feuille "Calcul" dans la feuille "Liste", et le tri a l'air de fonctionner en cas de références identiques. Le problème est que la ligne que je souhaite copier comporte des formules, et celles-ci disparaissent de la feuille "Calcul" lors de l'exécution de la macro. Je pense que c'est lié au "Selection.PasteSpecial" que j'ai ajouté pour pouvoir uniquement des valeurs dans la feuille "Liste" mais je ne suis pas suffisamment calé pour fixer ce problème...

Merci d'avance de votre aide !