Sub essai()
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 10, 10, 100, 50).Name = "monshape"
With ActiveSheet.Shapes("monshape")
.TextFrame.Characters.Text = "ceci est un essai"
.TextFrame.Characters(Start:=1, Length:=4).Font.ColorIndex = 3
.Fill.ForeColor.SchemeColor = 13
.TextFrame.Characters.Font.Size = 8
.TextFrame.Characters(Start:=12, Length:=6).Font.Name = "Comic Sans Ms"
.TextFrame.Characters(Start:=12, Length:=6).Font.Size = 12
End With
End Sub