Copier Feuille avant autre feuille

Bonjour,

J'ai une chouette macro que quelqu'un sur ce forum m'a monté.

Cette macro me permet de copier une feuille "Modèle", d'en vider son contenu, et de créer un nouvel onglet avec les mêmes entêtes mais un nom différent. Le problème c'est que j'ai d'autres onglets dans ce fichier, et je voudrai que le nouvel onglet crée aille avant l'onglet sommaire.

J'ai cherché et trouvé une solution, l'onglet se déplace au bon endroit, par contre depuis, à chaque fois que j'exécute la macro, tous les autres onglets sont aussi copiés.

Quelqu'un sait pourquoi? Voir le fichier joint!

Merci d'avance!

Bonjour

J'ai cherché et trouvé une solution, l'onglet se déplace au bon endroit, par contre depuis, à chaque fois que j'exécute la macro, tous les autres onglets sont aussi copiés.

Quelle est la procédure que vous faites ?

Si j'exécute la macro Demo, je n'ai aucun souci. La feuille créée est l'unique feuille copiée en dernière position.

Cordialement

Bonjour,

Essaie comme cela :

Public Sub DEMO()
Dim ws As Worksheet
Dim lo As ListObject
Dim Message As String, Title As String, Response As String
Dim nbLo As Long
    Message = "Voulez-vous créer une nouvelle feuille?"
    Title = "Création nouvelle feuille ?"
    'Response = nom de la nouvelle feuille
    Response = InputBox(prompt:=Message, Title:=Title)
    If Response <> "" Then
        Set ws = ThisWorkbook.Worksheets("Modèle")
        'Crée une copie de la feuille "Modèle" avant la feuille "Sommaire"
        ws.Copy Before:=ThisWorkbook.Worksheets("Sommaire")
        ActiveSheet.Name = Response
        Set lo = ActiveSheet.ListObjects(1)
        With lo
            ' on renomme le nom du tableau
            .Name = "Tableau" & nbLo + 1
            ' si le tableau comporte des données, on les supprime
            ' et on redimensionne le tableau
            If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete
        End With
    Else
        Exit Sub
    End If
    Set lo = Nothing: Set ws = Nothing
End Sub

A+

C'est parfait

Merci beaucoup!