XL 2016 Après choix liste intuitive pouvoir modifier la cellule dans textbox

Private Sub UserForm_Initialize()
Set f = Sheets("ShwArticles")
'transpose c'est pour passer en colonne des données en ligne (ou inversement)************
'n'est pas nécessaire dans ton cas*************
a = Application.Transpose([Code_Article])
Me.ComboBox3.List = a
End Sub

Private Sub ComboBox3_Change()
'la ligne ci dessous ne peux marcher a n'etant pas connu  ************************
If Me.ComboBox3.ListIndex = -1 And IsError(Application.Match(Me.ComboBox3, a, 0)) Then
Me.ComboBox3.List = Filter(a, Me.ComboBox3.Text, True, vbTextCompare)
Me.ComboBox3.DropDown
Else
If Me.ComboBox3.ListIndex <> -1 Then Cells(Me.ComboBox3.ListIndex + 1, 3).Select " c'est là que ça coince!!
End If
Ligne = Me.ComboBox3.ListIndex

'Me.TextBox2 = f.Cells(Ligne, 3).Value "????
' f.Cells(Ligne, 3).Select
End Sub

Private Sub ComboBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then ActiveCell = Application.Proper(Me.ComboBox3.List)
End Sub

Private Sub CommandButton1_Click()
f.Cells(Ligne, 3).Value = CDbl(Me.TextBox2.Value)
'où est la sélection? *****************************
Selection.Interior.ColorIndex = 40
end sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  UserForm1.ComboBox3.Value = Range("A" & Target.Row).Value
  UserForm1.TextBox2.Value = Range("C" & Target.Row).Value
  UserForm1.Show
End Sub

Private Sub ComboBox3_Change()
  If Me.ComboBox3.ListIndex <> -1 Then
    Ligne = Me.ComboBox3.ListIndex + 3
    Me.TextBox2.Value = Cells(Ligne, 3).Value
  End If
End Sub

Private Sub CommandButton1_Click()
  Ligne = Me.ComboBox3.ListIndex + 3
  Cells(Ligne, 3).Value = CDbl(Me.TextBox2.Value)
  Cells(Ligne, 3).Interior.ColorIndex = 40
End Sub