Bonjour,
C'est normal, votre code VBA ne copie que les "Values", c'est-à-dire le contenu numérique des cellules sans les mises en formes, formules ou liens hypertextes.
Pour simuler une copie manuelle, vous pouvez écrire
Sub Copie()
Sheets("PAGE").Range("A1:I1000").Copy Sheets("BASE ARTICLES").Range("A1:I1000")
End Sub