Private Sub TextBox1_Change() 'se déclenche lors de la modification de TextBox1 Dim objPPS As Presentation Set objPPS = ActivePresentation Dim objSld1 As Slide Set objSld1 = objPPS.Slides(1) Dim objSld2 As Slide Set objSld2 = objPPS.Slides(2) Dim otxtBox1 As TextBox Set otxtBox1 = objSld1.Shapes("TextBox1").OLEFormat.Object Dim otxtBox2 As TextBox Set otxtBox2 = bjSld2.Shapes("TextBox2").OLEFormat.Object 'Recopie de la valeur de la textBox1 du slide1 sur la textbox2 du slide2 otxtBox2.Text = otxtBox1.Text 'changement de couleur.. otxtBox2.BackColor = vbBlue End Sub