Créer onglet non caché

Bonjour à tous

Voila j'ai crée un fichier excel ou je il ya deux feuilles "MODELE" et "LISTE".

J'ai crée un code vba qui me permet de créer une copie de la feuille MODELE avec les données récupérées de la feuille LISTE.

Tout marche a merveille sauf que si je cache la feuille MODELE toutes les autres copies sont aussi cachées.

L'idée c'est de pouvoir cacher la feuille MODELE mais quand je demande à faire des copies les copies sortent normales sans qu'elles soient cachées.

Je vous mets ci-dessous le code vba

Merci tout le monde

Public Sub CreerFeuilles()

Dim oShModele As Worksheet

Dim oShListe As Worksheet

Dim iLigFin As Integer

Dim iLig As Integer

Dim oShNew As Worksheet

Dim sNomOnglet As String

Set oShModele = Worksheets("Modele")

Set oShListe = Worksheets("LISTE")

iLigFin = oShListe.Range("C" & Rows.Count).End(xlUp).Row

For iLig = 2 To iLigFin

If oShListe.Range("C" & iLig).Value <> "" Then

sNomOnglet = oShListe.Range("B" & iLig).Value & " " & oShListe.Range("C" & iLig).Value

If OngletExist(sNomOnglet) Then

Set oShNew = Worksheets(sNomOnglet)

Else

oShModele.Copy After:=Worksheets(Worksheets.Count)

Worksheets(Worksheets.Count).Name = sNomOnglet

Set oShNew = Worksheets(Worksheets.Count)

End If

oShNew.Range("D5").Value = oShListe.Range("B" & iLig).Value 'Nom

oShNew.Range("D6").Value = oShListe.Range("C" & iLig).Value 'Prénom

'lien hypertext

oShNew.Hyperlinks.Add Anchor:=oShListe.Range("B" & iLig), Address:="", SubAddress:= _

"'" & sNomOnglet & "'!A1", TextToDisplay:=oShListe.Range("B" & iLig).Value

Set oShNew = Nothing

End If

Next iLig

oShListe.Select

Set oShListe = Nothing

Set oShModele = Nothing

End Sub

Bonjour,

ajoute cette ligne juste après la copie de la feuille

Sheets(Sheets.Count).Visible = True

C'est parfait juste une remarque c'est que quand je lance la création des feuilles copies, La feuille source "MODELE" change de nom et s'appelle "MODELE (2)" du coups tout mes codes apres sont faussés