Dim Text1 As String

Text1 = ActivePresentation.Slides(2).Shapes("TextBox1").TextFrame2.TextRange.Text
ActivePresentation.Slides(24).Shapes("TextBox1bis").TextFrame2.TextRange.Text = Text1