Comment créer un texte en VBA

Sub AjoutText()
    Dim MonTexte As AcadText
    Dim MonContenu As String
    Dim PointInsertion (0 To 2) As Double
    Dim Hauteur As Double
 
    ' Création de l'objet texte
    MonContenu = "Bienvenue sur Blootoks.fr!"
    PointInsertion(0) = 2 ' X
    PointInsertion(1) = 2 ' Y
    PointInsertion(2) = 0 ' Z
    Hauteur = 0.5 ' Hauteur du texte
 
    Set MonTexte = ThisDrawing.ModelSpace. _
                      AddText(MonContenu, PointInsertion, Hauteur)
    MonTexte.Update ' mise à jour sur l'écran
End Sub