XL 2016 récupérer textbox dans une cellule fusionnée

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then
        ' Vérifie si la sélection contient plus d'une cellule
        On Error Resume Next
        Dim isHorizontal As Boolean
        isHorizontal = False
    
        ' Vérifie si la sélection est horizontale
        If Target.Rows.Count = 1 Then
            isHorizontal = True
        End If
    
        ' Fusionne uniquement si la sélection est horizontale et dans la plage E:BQ
        If isHorizontal And Target.Column >= 5 And Target.Column <= 68 Then
            Target.Merge
        
            ' Ouvre UserForm1
            UserForm1.Show
        End If
    
        On Error GoTo 0
    
        Target.Value = UserForm1.TextBox1.Value
        With Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .Color = CLng(UserForm1.TextBox1.Tag) ' Rouge
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
    
        ' Centre le contenu en hauteur et en largeur
        With Target
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
        End With
    
        ' Compte le nombre de cellules fusionnées dans la sélection
        Dim MergedCount As Integer
        MergedCount = 0
    
        Dim Cell As Range
        For Each Cell In Target
            If Cell.MergeCells Then
                MergedCount = MergedCount + 1
            End If
        Next Cell
    
        ' Écrire le nombre d'heures dans la colonne BS
        If MergedCount > 0 Then
            Dim Hours As Double
            Hours = MergedCount * 15 / 60 ' Convertit les 15 minutes en heures (15/60)
        
            ' Insère le nombre d'heures sous forme décimale en divisant par 24
            Me.Cells(Target.Row, "BS").Value = Hours / 24
        End If
    
        ' Sauvegarde le formatage de la ligne 5 lors de la première sélection
        If Target.Row = 5 Then
            FormatageLigne5 = Target.EntireRow.Cells(1).EntireRow.Copy
        End If
    End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' Cette macro se déclenche lorsque vous double-cliquez sur une cellule
  
    If Target.MergeCells And Target.Column >= 5 And Target.Column <= 68 Then
        ' Vérifie si la cellule est fusionnée et dans la plage E:BQ
        On Error Resume Next
      
        ' Rétablir l'alignement par défaut
        With Target
            .HorizontalAlignment = xlGeneral
            .VerticalAlignment = xlBottom
        End With
      
        Target.Interior.Color = xlNone
        Target.Value = Empty
      
        ' Stocker le formatage de la ligne 5 pour la plage fusionnée
        Dim FormatageLigne5 As Range
        Set FormatageLigne5 = Me.Cells(5, Target.Column).Resize(1, Target.Columns.Count)
      
        ' Appliquer le formatage de la ligne 5 à la plage fusionnée
        FormatageLigne5.Copy
        Target.PasteSpecial Paste:=xlPasteFormats
      
        Application.CutCopyMode = False ' Effacer le presse-papiers
      
        Target.UnMerge
        On Error GoTo 0
    End If
    ' Annuler le déclenchement du UserForm par défaut
    Cancel = True
End Sub

Private Sub CommandButton1_Click()
    Dim info As String
    info = Me.TextBox1.Value
    ' Vérifier quel bouton d'option est sélectionné
    Dim selectedColor As String
    Dim MonOptionButton As Object
    For Each MonOptionButton In Me.Controls
    If TypeOf MonOptionButton Is MSForms.OptionButton Then
    If MonOptionButton.Value = True Then
    Select Case MonOptionButton.Name
        Case "RedOptionButton"
            selectedColor = 5460991: Exit For 'vbRed: Représente la couleur rouge.
        Case "BlueOptionButton"
            selectedColor = 16770719: Exit For 'vbBlue: Représente la couleur bleue.
        Case "OrangeOptionButton"
            selectedColor = 6150399: Exit For 'vbBlue: Représente la couleur orange.
        Case "GreenOptionButton"
            selectedColor = 10747735  : Exit For 'vbGreen: Représente la couleur verte.
        Case "YellowOptionButton"
            selectedColor = 6684671: Exit For ' vbYellow: Représente la couleur jaune
        Case "PurpleOptionButton"
            selectedColor = 14652863: Exit For 'vbViolet: Représente la couleur violette.
    End Select
    End If
    End If
    Next MonOptionButton
        Me.TextBox1.Tag = selectedColor
 
    ' Fermer l'UserForm
    Me.Hide
 
End Sub