Ajouter une copie d'un model par macro

[rem$]

bonjour à tous,

je souhaite à tous une bonne année 2005 santé, bonheur....

j'ai une macro qui me permet d'ajouter une feuille à mon dossier dans mon userform mais plutot que d'ajouter simplement une feuille je voudrais qu'elle insere une feuille model(mise en page des colonnes, lignes...)
est-ce possible ?
de plus le commandbutton2 se trouve sur la feuil1 vierge puique c'est un peu la feuil d'accueil est-ce possible que cette feuille n'apparaisse pas dans le listebox1

merci d'avance pour votre aide

Rem$

Private Sub CommandButton2_Click()
Dim nouvellefeuille As Object
Dim nom As String
retour:
nom = InputBox("quel nom pour la nouvelle feuille ? :")
If nom = "" Then Exit Sub
For Each ws In Worksheets
If ws.Name = nom Then
MsgBox ("Nom déjà choisi"): GoTo retour
End If
Next ws

Set nouvellefeuille = Worksheets.Add
nouvellefeuille.Name = nom
ListBox1.Clear
For Each ws In Worksheets
Me.ListBox1.AddItem ws.Name
Next ws
End Sub

 

[ChTi'160]

Private Sub CommandButton2_Click()

Salut"rem$"
pour la deuxieme partie c'est ce qu'il y a en gras
je pense que pour la première partie copie
(mise en page des colonnes, lignes...) celà dois passer par un collage special
Private Sub CommandButton2_Click()
Dim nouvellefeuille As Object
Dim nom As String
retour:
nom = InputBox("quel nom pour la nouvelle feuille ? :")
If nom = "" Then Exit Sub
For Each ws In Worksheets
If ws.Name = nom Then
MsgBox ("Nom déjà choisi"): GoTo retour
End If
Next ws

Set nouvellefeuille = Worksheets.Add
nouvellefeuille.Name = nom
ListBox1.Clear
For Each ws In Worksheets
If ws.Name <> "Accueil" Then 'si ta feuille vierge s'appelle accueil
Me.ListBox1.AddItem ws.Name
End If
Next ws
End Sub
A+++
Jean Marie

 

[ChTi'160]

re "rem$"
je viens de faire un essai de copi d'une feuille celle ci est copiée avec les mises en forme éventuelles
ou alors je n'est pas compris la première partie de la question
et il faut m'éclairer
A+++
Jean Marie