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