' création de la zone de texte
Set Shp = .Slides(2).Shapes.AddTextbox(msoTextOrientationHorizontal, 75, 250, 600, 50)
'insère la valeur de la Cellule E3 dans une zone de texte
Shp.TextFrame.TextRange.Text = Range("E3")
'Modifie la couleur du texte
Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)