Bonjour,
Un moyen parmi d'autres est de le coder en VBA
'Open the Excel Workbook.
Set CLI = Excel.Application.Workbooks.Open("Fichier.xlsm", ReadOnly:=True)
Set WS = CLI.Worksheets("Feuil1")
ActivePresentation.Slides(1).Shapes("NomShape").TextFrame.TextRange.Text = WS.Cells(1, 1).Value ' A1