De rien ...
Je t'en prie, pour ma part, j'ai testé sans succès la solution de l'expert. Et pour ne pas rester sans réponse, j'ai creusé d'autres pistes comme par exemple déplacer une shape de slide en slide :
Function PPT_MoveTo(frm As String, Slide As Integer)
'ActivePresentation.Slides(fromslide).Shapes(frm) = ActivePresentation.Slides(toslide).Shapes(frm)
Dim fromslide As Integer
Dim toslide As Integer
fromslide = Slide
toslide = Slide + 1
ActivePresentation.Slides(fromslide).Shapes(frm).Cut
ActivePresentation.Slides(toslide).Shapes.Paste
End Function
A présent, il me reste pas mal de chemins pour faire défiler du texte dans cette shape, en prenant en compte la durée de chaque slide et le reste du texte à faire défiler. Peut-être as-tu d'autres pistes ?