Fixer la taille de la zone de texte

Sub ZoneDeText()
    Dim L!, T!, H!, W!
    'Dimensions et position de la zone de texte
    H = 50    ' hauteur,Height
    W = 200    ' largeur,Width
    L = 100    ' position horizontale,Left
    T = 100   ' position verticale,Top
    'Insertion de la zone de texte
    ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, L, T, W, H).Select
    Selection.Name = "Z1"   '<-- nom de la zone de texte
   With Selection
        .Name = "Z1"    ' Nom de la zone de texte
        .Characters.Text = "mon texte" & Chr(10) & "BLA bla BLA"    ' & Chr(10) &  pour  retour de ligne
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
    Range("A1").Activate    'sortir de la sélection de la zone de texte
End Sub