Copier/coller valeur dans un autre onglet sans le voir

Bonjour à tous,

J'ai un programme avec une macro déclenchée par un bouton qui fait la chose suivante :

Sub SOLUTION1()

Dim aname

aname = ActiveSheet.Name

Windows("ressources.xls").Activate
Sheets("RESULTS").Select

Range("F500:Q503").Copy
Range("H39:S42").Select
Selection.PasteSpecial Paste:=xlValues

Range("F505:Q508").Copy
Range("H44:S47").Select
Selection.PasteSpecial Paste:=xlValues

Sheets(aname).Select

Range("F11").Select

End Sub

Comme vous pouvez le voir c'est pas joli joli, mais ça fait plus ou moins ce que je veux.

Le bouton (déclenchant la macro) se trouve sur 2 feuilles différentes (je veux pouvoir l'exécuter quand je suis sur l'une ou l'autre).

Problème : Quand je me retrouve sur la feuille 2 et que je clique sur mon bouton, je vois l'écran "scintiller" car excel m'affiche très furtivement la feuille 1 (RESULTS) puis reviens sur la feuille 2 grâce à "Sheets(aname).Select" qui m'a enregistré la feuille dans laquelle je me trouvais (pratique!).

Existe t-il un moyen d'éviter cela ? Je veux que les opérations se fassent sans ".select" qui au final me fait cet effet de scintillement.

Ca me permettrait aussi de supprimer mon "Range("F11").Select" que je mets juste pour recentrer la vue en ce point.

Merci d'avance !

Bonjour

A tester

Sub SOLUTION1()
  Application.ScreenUpdating = False
  With Sheets("RESULTS")
    .Range("F500:Q503").Copy
    .Range("H39:S42").PasteSpecial Paste:=xlValues

    .Range("F505:Q508").Copy
    .Range("H44:S47").PasteSpecial Paste:=xlValues
  End With
  Application.CutCopyMode = False
End Sub

Bonjour Banzai64,

Un énorme merci ça fonctionne parfaitement !!!!

Merci encore et bonne journée !