Sheets("selectioner la désignation d'une cellule d'une feuille")

Bonjour à tous,

Je me permets de poster aujourd'hui car je rencontre un problème auquel je n'ai pas trouvé de réponse sur internet.

Sur mon fichier Excel, j'ai 4 feuilles que je vais appeler "A","B", "C" et "Données".

Je souhaite exécuter une macro qui copie / colle soit la feuille A, B ou C.

Voici le code que j'utilise pour effectuer ça:

Sub Macro_auto()

'Copie/colle la feuille

Sheets("A").Select
ActiveWindow.SmallScroll ToRight:=-15
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select

MsgBox "Copier / collé effectué. !"

End Sub

Ma problématique est que la feuille à copier / coller n'est pas forcément "A", mais peut être B ou C.

Dans la feuille "Données, dans la cellule J4, se trouve le nom de la feuille à copier/coller.

Comment dire dans mon code qu'il faut aller chercher l'intitulé de la feuille dans la feuille données cellule J4 ?

Merci beaucoup pour vos réponses.

Cdt,

Florentin.

bonjour,

une proposition

Sub Macro_auto()

    'Copie/colle la feuille

    With Sheets(Sheets("données").Range("J4").Value)
        .Activate
        With .Cells
            .Copy
            .PasteSpecial Paste:=xlPasteValues
        End With
    End With
    Application.CutCopyMode = False
    MsgBox "Copier / collé effectué. !"

End Sub

Bonsoir,

Le programme fonctionne. Merci beaucoup pour votre aide ! :)

Florentin.