Erreur sur Sheets("Feuil1").Copy

Bonjour

Voici mon problème du moment.

Cette routine fontionne parfaitement dans une appli

Private Sub SOS_Click()

Sheets("Feuil1").Copy
Application.Dialogs(xlDialogSaveAs).Show (nom-de-fichier)
ActiveWorkbook.Close SaveChanges:=False

End Sub

Dans une autre elle me donne le message suivant:

Run-time error '424'
Object required

en m'indiquant la ligne: Sheets("Feuil1").Copy

Comme toujours un grand merci pour qui éclairera ma lanterne !!!

Teddy