Copie en cellule et cellule nommé

Bonjour,

J'ai deux feuilles et je voudrais copier des données de l'un vers l'autre.

J'ai fait un petit bout de code :

 
   'Selectionne ma cellule dans la feuille 1
    Range(Cells(DebutLigneTableau + 1, DebutColonneTableau), Cells(DebutLigneTableau + FinLigneTableau, DebutColonneTableau + 1)).Copy

        'Je copie vers la cellule nommée de la feuille 2
        Range("MaValeur").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False

L’inconvénient de ce code est le va est vient entre les feuilles. Comment puis-je le simplifier ?

Merci d'avance.

Bonjour,

Un essai ...

Dim Ws1 As Worksheet    ' feuille source
Dim Ws2 As Worksheet    ' feuille cible

Set Ws1 = Worksheets("Feuil1")    ' << adapter le nom au besoin
Set Ws2 = Worksheets("Feuil2")    ' << adapter le nom au besoin

    'Selectionne ma cellule dans la feuille 1
    Ws1.Range(Cells(DebutLigneTableau + 1, DebutColonneTableau), Cells(DebutLigneTableau + FinLigneTableau, DebutColonneTableau + 1)).Copy

    'Je copie vers la cellule nommée de la feuille 2
    Ws2.Range("MaValeur").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

ric

Merci Ric.