Macro copier/coller valeur

Bonjour,

Je rencontre un problème avec un fichier assez lourd pour lequel je souhaite réaliser un copier coller pour éviter une multitude de formules.

Le but est de faire un copier/collage spécial valeur de la feuille 1 à la feuille 2 dans l'ordre indiqué sur la feuille 2 (voir fichier joint.

La macro réalisé avec l'enregistreur ne fonctionne pas, c'est aléatoire en fonction d'où se trouve mon curseur....

De plus dans la feuille 1 j'ai des macros ici j'ai simplifié pour ne laissé que la macro génante

Private Sub Worksheet_activate()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
End Sub

Private Sub Worksheet_Deactivate()
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub

"Application.Calculation = xlCalculationAutomatic" me renvoi un message d'erreur quand je clique sur le bouton de la feuille2, en le mettant en commentaire la macro se lance sans problème.

3em point, j'ai mis un bouton pour lancer la macro, mais je souhaiterai le supprimer, je voudrais que la macro se lance dès que je sélectionne la feuille 2

J'espère avoir été suffisamment claire dans mes explications

Bonjour

Edit Pas tout lu

Dans le module de la feuil2

Private Sub Worksheet_Activate()
  Macro1
End Sub

Sub Macro1()
  With Sheets("Feuil1")
    .Range("D5:D32").Copy
    Range("A3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
                             SkipBlanks:=False, Transpose:=False
    .Range("G5:H32").Copy
    Range("B3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
                             SkipBlanks:=False, Transpose:=False
    .Range("L5:L32").Copy
    Range("D3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
                             SkipBlanks:=False, Transpose:=False
    .Range("I5:I32").Copy
    Range("G3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
                             SkipBlanks:=False, Transpose:=False
    .Range("N5:O32").Copy
    Range("H3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
                             SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
  End With
End Sub

Merci Banzai64, je ne comprend pas ou était le problème avant, mais là, ça fonctionne sans problème.

Bonjour

Supposition

Le fait de copier/coller en sélectionnant sans arrêt la page source et la page destination, les macros Activate et Deactivate était sollicitées à chaque fois, et c'est peut-être ça qu' XL annule(purge) le tampon copier

C'est un peu (beaucoup) tiré par les cheveux, mais je m'en contente

Le principal c'est que tu as un code fonctionnel