Sauvegarder après chaque calcul de feuille

Bonjour à tous,

J'ai en P1:X1 des données qui changent à chaque calcul de la feuille, je voudrais (par macro ou formules) qu'a chaque calcul de le feuille, excel me garde ces données en liste (par exemple en Z1:AH1)

La liste complète serait de Z1:AH504 (voir fichier joint)

J'ai bien tenté une macro qui me donnerait ce que je veux :

Sub liste()
'
' liste Macro
'
' Touche de raccourci du clavier: Ctrl+a
'
    Calculate
    Range("P1:X1").Select
    Selection.Copy
    Range("Z1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

mais je serais obligé de copier/coller ce même code plusieurs fois d'affilé en changement

Range("Z1").Select

à chaque fois...long

Si quelqu'un peux m'aider à résoudre ce petit problème,

merci d'avance

Bonjour à tous,

Sub Liste()
Dim Lg%
Lg = Range("z65536").End(xlUp).Row + 1
    Calculate
    Range("P1:X1").Copy
    Range("Z" & Lg).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub

Amicalement

Claude

édit: il faudrait que tu précise tes options (calcul auto ou manuel) ?

dubois a écrit :

Amicalement

Claude

édit: il faudrait que tu précise tes options (calcul auto ou manuel) ?

Merci Claude pour ta réponse,

Oui en effet j'aurai besoin d'un calcul automatique si cela est possible...

re,

alors il faut supprimer cette ligne dans le code

'Calculate

Claude

Ok c'est parfait, cela donne ce que j'attendais.

Merci Claude