Microsoft 365 UserForm souci de paramètre n° de ligne pour atteindre la bonne ligne

Private Sub ComboBox1_Change()
 [a3] = ""
 If Me.ComboBox1.ListIndex = -1 And IsError(Application.Match(Me.ComboBox1, Choix1, 0)) Then
    If Me.ChoixFiltre1 Then
        Dim Val_Test, Filtre_Txt$
        For Each Val_Test In Choix1
            If UCase(Val_Test) Like UCase(ComboBox1.Value) & "*" Then
                Filtre_Txt = IIf(Filtre_Txt = "", Val_Test, Filtre_Txt & "_" & Val_Test)
            End If
        Next Val_Test
        Me.ComboBox1.List = Split(Filtre_Txt, "_")
    Else
        Me.ComboBox1.List = Filter(Choix1, Me.ComboBox1.Text, True, vbTextCompare)
    End If
    Me.ComboBox1.DropDown
    Me.TextBox2 = ""
  Else
    Position = Application.Match(Me.ComboBox1, Choix1, 0)
    Me.TextBox2 = rng.Cells(Position, 1)
    F.Cells(Position, 1).Select
  End If
    ActiveCell.Offset(3, 0).Select
End Sub