Copie onglet

Bonjour

Ctrl+k pour lancer la copie de Feuil1 avec son bouton et son code attaché
https://www.cjoint.com/c/HFnqswu1IoB

Cdlmnt

Zut, pas tout lu

Pour copier le dernier onglet du classeur

Public Sub CopieDerniereFeuille()
Dim nomf As String
nomf = InputBox("Nom de la nouvelle feuille")
Sheets(Sheets.Count).Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = nomf
End Sub

Cdlmnt

Merci beaucoup pour ce retour rapide mais j'ai du mal poser ma question.
j'ai un classeur qui comporte plusieurs onglets avec des noms de villes.Chaque onglet comporte plusieurs macros sous forme de bouton qui permettent de sélectionner des composants dans une liste.je souhaiterai faire une macro qui reprenne le dernier onglet du classeur(ex PARIS) et fasse une copie conforme de toute les macros de l'onglet Paris dans un nouvel onglet que je nommerai Lille;
Merci

C'est bien ce que fait ma dernière proposition
https://www.cjoint.com/c/HFnq4uBb6eB

Chacune des feux feuilles contient un bouton avec un code différent
La procedure CopieDerniereFeuille()
- demande le nom de la future feuille
- copie la dernière feuille (Sheets(Sheets.Count))
- bouton et code compris

Cdlmnt

Désolé j'ai isolé une partie du programme et testé votre macro
elle fonctionne parfaitement
je dois avoir un bug dans le programme de base
je vais chercher
merci de votre aide

Bonsoir
j'ai un nouveau problème
j'ai créé un useform qui permet d'ajouter des éléments à la fin d'un tableau la macro précise d'aller à la dernière ligne vide du tableau(1) et recopie les éléments saisis dans le useform. Cela fonctionne.
J'aimerai copier cette dernière ligne dans un autre onglet qui contient aussi un tableau(2) dans la dernière ligne de ce tableau.et ainsi de suite sachant que le tableau(2)sera celui qui reçoit les infos mais que le tableau (1) est situé sur plusieurs onglets
j'espère avoir été clair
merci de votre aide