Sub ouverture()
fichier = Range("A1").Value
nb_copie = Range("B1").Value
Workbooks.Open Filename:=fichier & ".xls"
Workbooks("x.xls").Activate
Cells.Copy
Workbooks(fichier & ".xls").Activate
While nb_copie <> 0
ActiveCell.PasteSpecial xlPasteAll
Wend
End Sub
si tu place le nom du fichier en A1 et le nombre de copies en B1, ça devrait marcher... enfin normalement !!