XL 2016 pb ajout de textbox dans cellule via ligne trouvée par combobox

[Maxxx62]

bonjour, je sais pas si c très clair, mais en gros je veux insérer dans une cellule (un textbox), avec pour conditions que la ligne soit choisie par un combobox.
le combobox est bon mais je ne sais pas comment l'inclure dans la localisation de la cellule.
je vous joint mon code pour être plus clair.
merci d'avance

 

[fanch55]

Bonjour,
Code pour l'userform2 :

Option Explicit
Private Sub CommandButton1_Click()
Dim R As Range
    Set R = Worksheets("gestion des clefs").Columns("B").Find(ComboBox1, [B1])
    If Not R Is Nothing Then
        R.Offset(, 3) = Me.TextBox1
        Charge_Combobox
    End If
    
End Sub

Private Sub UserForm_Initialize()
  TextBox1.Value = Format(Now(), "mm/dd/yyyy-hh:mm")
  Charge_Combobox
End Sub
Sub Charge_Combobox()
  Dim Lig As Long
  Me.ComboBox1.Clear
  With Worksheets("gestion des clefs")
    For Lig = 2 To .Range("B" & Rows.Count).End(xlUp).Row
        If .Range("B" & Lig) <> "" And .Range("E" & Lig) = "" Then
          ComboBox1 = .Range("B" & Lig)
          If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem .Range("B" & Lig)
        End If
    Next Lig
  End With

End Sub