Lien dans macro

Bonjour,

J'essai de faire cette macro mais elle ne fonctionne pas.

Pouvez vous m'aider?

Le but est de faire un copier coller en utilisant le nom de l'onglet qui est dans la cellule B2.

Sub Macro3()
'
' Macro3 Macro
'
Lien1 = Chr(34) & Sheets("feuil1").Range("B2") & Chr(34)
'
    Sheets=(Lien1).Select
    Rows("1:3").Select
    Selection.Copy
    Sheets("COLLE").Select
    ActiveSheet.Paste
End Sub

Bonjour

Vous devriez vraiment prendre des cours ou lire des bouquins sur la programmation VBA
au lieu d'essayer de faire des trucs tarabiscotés

Sub Macro3()
  Dim NomFeuille As String
  NomFeuille =  Sheets("feuil1").Range("B2")
  Sheets(NomFeuille).Rows("1:3").Copy Destination:=Sheets("COLLE").Range("A1")
End Sub

A+

Merci