Création nouvelle feuille(avec nom) plus copier-coller

Bonjour à tous. Je voudrai écrire un code VBA qui à partir des feuille1 & feuille2 crée une troisième feuille( cette feuille est ouverte à droite de la feuille 1) qui:

• est renommée automatiquement à partir des noms d'une liste déroulante provenant de la feuille 1; ( à ce niveau pas de soucis)

• cette même feuille trois reçoit les données copiées depuis la feuille 2.

Le processus est répété quand je clic a nouveau sur le bouton ( générer une nouvelle feuille)

Merci d'avance

Bonjour LeMANIMAK,

Sans fichier, voici un code à tester

Sub GenererNouvelleFeuille()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim ws3 As Worksheet
    Dim nom As String

    Set ws1 = ThisWorkbook.Sheets("Feuille1") 'Adapter le nom de la feuille
    Set ws2 = ThisWorkbook.Sheets("Feuille2") 'Adapter le nom de la feuille

    ' Récupérer le nom de la nouvelle feuille à partir de la liste déroulante sur la Feuille1
    nom = ws1.Range("A1").Value ' Remplacer "A1" par la cellule de votre liste déroulante

    ' Créer une nouvelle feuille après la Feuille1
    Set ws3 = ThisWorkbook.Sheets.Add(After:=ws1)

    ' Renommer la nouvelle feuille
    ws3.Name = nom

    ' Copier les données de la Feuille2 vers la nouvelle feuille
    ws2.Cells.Copy ws3.Cells
End Sub

Bonsoir 1000lio. Merci pour le code, il marche du tonner. Une dernière requête : comment conserver la mise en forme de la page d'origine ( celle qui est dupliquée)?