Oui effectivement david ici ce n'est pas la facon de faire. Quand tu a des précisions sur une code que l'on t'a donné gratuitement tu demande des info rapidement.
Sub Macro1()
Range('A1') = ThisWorkbook.BuiltinDocumentProperties('Author').Value
End Sub