Erreur programme Visual Basic

Bonjour,
Je suis un bleu dans la programmation alors quelqu'un aurait-il l'amabilité de bien vouloir m'aider.
J'ai changé d'ordinateur et recopié un ancien programme et quand je le lance j'ai une erreur à cet endroit

'svg du bon
nom = "bonnumero"
sfx = ".xls"
Sheets("Bon_com").Select
Sheets("Bon_com").Copy
ActiveSheet.Shapes("Button 117").Select 'btn macro
Selection.Delete
ActiveSheet.Shapes("Button 118").Select
Selection.Delete
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
'chemin = "C:\Documents and Settings\Christophe AUBIN\Mes documents\BON_commande\" & onglet & "\"
'ChDir chemin
'mdf annee
'anencours = "2004"
anencours = Right(UserForm1.TextBox3, 2)
Select Case anencours

Le message d'erreur est " erreur d'execution -'2147024809 (80070057)' l'élément portant ce nom est introuvable"
Merci par avance pour votre aide
Christophe