je voudrais faire une copie exacte de ma feuille

[L.Patrick]

Je ne comprends pas ma feuille doit se copier entierement mais apparemment:
mes ellipses changent de noms et en plus pas toutes , par contre les macros corespondantes aux ellipses gardent bien les anciens noms de la feuille d'origine comment puis je proceder.
Est ce que je dois entrer une commande spéciale pour la copie exacte de la feuille comprenant toute les formes auto et autres.Il y a celle-ci pour le moment:
Worksheets("Client").Copy after:=Worksheets("Client")



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 = CLng(UserForm1.TxtTelDom)
ActiveCell.Offset(0, 3).Value = UserForm1.Txtnumader
ActiveCell.Offset(0, 4).Value = UserForm1.Txtprof
ActiveCell.Offset(0, 5).Value = UserForm1.Txtadress
ActiveCell.Offset(0, 6).Value = UserForm1.Txtpostal
ActiveCell.Offset(0, 7).Value = UserForm1.Txtlocal
'Sheets("Client").Select
'Sheets("Client").Copy
Worksheets("Client").Copy after:=Worksheets("Client")

ActiveSheet.Name = UCase(UserForm1.txtNom) & " " & UserForm1.txtPrenom
ActiveSheet.Range("D5") = UserForm1.txtNom
ActiveSheet.Range("D6") = UserForm1.txtPrenom
If IsNumeric(UserForm1.TxtTelDom) = True And IsEmpty(UserForm1.TxtTelDom) = False Then ActiveSheet.Range("D13") = CLng(UserForm1.TxtTelDom)
ActiveSheet.Range("D15") = UserForm1.Txtprof
If IsNumeric(UserForm1.Txtnumader) = True And IsEmpty(UserForm1.Txtnumader) = False Then ActiveSheet.Range("D17") = CLng(UserForm1.Txtnumader)
ActiveSheet.Range("D9") = UserForm1.Txtadress
If IsNumeric(UserForm1.Txtpostal) = True And IsEmpty(UserForm1.Txtpostal) = False Then ActiveSheet.Range("D10") = CLng(UserForm1.Txtpostal)
ActiveSheet.Range("D11") = UserForm1.Txtlocal
Unload Me
End Sub