Fixer une zone texte sur ma feuille

'  CheckBox Département et Préfecture
Private Sub CheckBox_Num_Dept_Click()

Dim L!, T!, H!, W!
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, L, T, W, H).Select
   CheckBox_Num_Dept.Caption = IIf(CheckBox_Num_Dept, "Avec  N° de Département", "Sans  N° de Département")
     
     With Selection
     
     .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
    If CheckBox_Num_Dept.Value = -1 Then ActiveSheet.Shapes("Groupe_Num_Dept").Visible = True
    If CheckBox_Num_Dept.Value = 0 Then ActiveSheet.Shapes("Groupe_Num_Dept").Visible = False
  
    H = 350    ' hauteur,Height
    W = 200    ' largeur,Width
    L = 100    ' position horizontale,Left
    T = 100   ' position verticale,Top
End Sub