Bonjour,
Voici un début de piste à partir de PowerPoint :
Option Explicit
Sub Test()
' Ajouter la référence à Exel (Outils/Références)
Dim Wbk As Excel.Workbook, l As Long, DiapoVide As CustomLayout, NewSlide As Slide, TxB As Shape
Set Wbk = Workbooks.Open ("D:\Temp\Test.xlsx")
Presentations.Add
' Slide vide dans la liste des modèles
Set DiapoVide = ActivePresentation.SlideMaster.CustomLayouts(7)
For l = 10 To Wbk.Worksheets(1).UsedRange.Rows.Count
Set NewSlide = ActivePresentation.Slides.AddSlide(ActivePresentation.Slides.Count + 1, DiapoVide)
Set TxB = NewSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 10, 430, 650, 100)
With TxB.TextFrame.TextRange
.ParagraphFormat.Alignment = ppAlignCenter
.Text = Wbk.Worksheets(1).Cells(l, "A").Text
.Font.Name = "Comic sans MS"
.Font.Bold = msoFalse
.Font.Italic = msoFalse
.Font.Size = 10
.Font.Underline = msoFalse
End With
Next l
Wbk.Close
End Sub
A adapter en fonction de ton besoin.