merci beaucoup pour l'aide
J'ai trouve une autre methode qui est :
Sheets("modele").Select
n selectionne la feuille active a sauvegarder
Sheets("modele").Copy
n copie la feuille active
Dim repertoire As String :repertoire comme chène de caractères
Dim fichier As String :nom du fichier comme chène
repertoire = "c:\facture\archive" : valeur de la variable du repertoire
fichier = Sheets("modele").range("a4") : nom de la feuille en cours a sauvegarder ou on concatene le n° de la facture le mois et l'annee en cours
fichier = repertoire & fichier
ActiveWorkbook.SaveAs Filename:=archive_2003.xls : sauvegarde du fichier archive_2003.xls
ActiveWindow.Close : fermeture du fichier archive
mais ca ne marche pas - il ne me sauvegarde aucune feuille dans mon fichier archive_2003.xls