Ma feuille n'est pas créee automatiquement

Bonjour j'ai un souci avec mon petit programme, quand je saisie les infos en cliquant "nouvelle fiche" une nouvelle feuille (modèle) doit se créer sous le nom saisie auparavant mais rien ne se passe, quelqu'un pourrait m'aider s'il vous plait car je ne connais pas encore le vba, j'ai joint le fichier (Lpatrick.zip). Merci d'avance.

Private Sub CmdCancel_Click()
Unload UserForm1
End Sub

Private Sub CmdOK_Click()
Sheets("Liste").Select
ActiveSheet.[DEB].Select
Selection.End(xlDown).Select
If Selection.Address = "$A$65536" Then
Range("DEB").Offset(1, 0).Select
Else
Selection.Offset(1, 0).Select
End If
ActiveCell.Value = UserForm1.txtNom
ActiveCell.Offset(0, 1).Value = UserForm1.txtPrenom
ActiveCell.Offset(0, 2).Value = UserForm1.TxtTelDom
ActiveCell.Offset(0, 3).Value = UserForm1.TxtTelBur
'Sheets("Modèle").Select
'Sheets("Modèle").Copy
Worksheets("Modèle").Copy after:=Worksheets("Modèle")

ActiveSheet.Name = UCase(UserForm1.txtNom) & " " & UserForm1.txtPrenom
ActiveSheet.Range("D5") = UserForm1.txtNom
ActiveSheet.Range("D6") = UserForm1.txtPrenom
ActiveSheet.Range("D13") = UserForm1.TxtTelDom
ActiveSheet.Range("D17") = UserForm1.TxtTelBur
Unload Me
End Sub