Macro de sauvegarde

Je souhaite enregistrer une feuille de calcul aprés remplissage dans un fichier J'ai écrit la macro suivante mais ça bug au niveau de (xx): Range("A1:Q54").Select Range("Q54").Activate Selection.Copy ChDir "C:\VERIFICATION\TRANS" Workbooks.Open Filename:="C:\VERIFICATION\TRANS\MASQUESCONSTAT.xlt" ActiveSheet.Paste Application.CutCopyMode = False numan = Format(Date, "yy") numj = Format(Date, "dd") nummois = Format(Date, "mm") numt = ActiveSheet.Range("G48").Cells ChDir "C:\VERIFICATION\TRANS\" & nomtech ActiveWorkbook.SaveAs Filename:="C:\VERIFICATION\TRANS\" & nomtech & "\" & "C" & numan & numj & nummois & numt & ".xls", _ (xx) FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False ActiveWindow.Close ActiveWindow.SmallScroll Down:=-24 Range("A20").Select Avez-vous une solution