Probleme de copier coller vba

Bonjour,

après plusieur recherche je n'arrive toujours pas à résoudre mon problème

dans un classeur j'ai une feuille "model" qui me sert pour créer des nouvelle feuille semblable par copier coller.

grace a mon code jarrive a créer une nouvelle feuille qui est nommée par un textbox. une fois créer, je voudrais copier le contenu de la feuille model et la coller dans ma nouvelle feuille (si possible sans copier le contenu des cellule, juste la présentation existante).
le problême est que le programme ne reconnait pas le nom de ma nouvelle feuille donné par mon textbox. Et m'envoie un message d'erreur 9

je vous met mon programme ci-dessous.
Si quelqu'un peut m'aider car je bloc depuis un bon moment. merci


Private Sub CommandButton1_Click()

Dim nomduprojet As String

'créer une feuille

nomduprojet = UserForm14.TextBox1
Sheets.Add.Select
ActiveSheet.Name = nomduprojet


'copier feuille model

Sheets("MODEL").Select
Cells.Select
ActiveSheet.Copy

'coller, c'est cette partie qui beug

Sheets(Me.TextBox1.Value).Select
Cells.Select
ActiveSheet.Paste


End Sub