XL 2010 afficher une ligne précise après recherche par macro

Application.Goto Sheets("LaFeuille").Range("A" & Ligne)

Private Sub TextBox1_Change()

    Dim Plage As Range, c As Range
    Set Plage = ActiveSheet.Range("A1", Cells(Rows.Count, "A").End(xlUp))
    Plage.Resize(, 11).Interior.ColorIndex = 2   'Exemple 1 (feuille)
    ActiveWindow.ScrollRow = 1
    If TextBox1 <> "" Then
        With Plage
            Set c = .Find(TextBox1.Value, lookat:=xlPart)
            If Not c Is Nothing Then
                If Left(Trim(c.Text), Len(TextBox1)) = TextBox1 Then
                    ActiveWindow.ScrollRow = c.Row
                    c.MergeArea.Resize(, 11).Interior.Color = vbGreen
                End If
            End If
        End With
    End If


End Sub

Option Compare Text


Private Sub TextBox1_Change()
    Dim Plage As Range, c As Range
    Set Plage = ActiveSheet.Range("A1", Cells(Rows.Count, "A").End(xlUp))
    Plage.Resize(, 11).Interior.ColorIndex = 2   'Exemple 1 (feuille)
    ActiveWindow.ScrollRow = 1
    l = 0
    If TextBox1 <> "" Then
        For Each cel In Plage.Cells
            If cel Like TextBox1 & "*" Then
                If l = 0 Then l = cel.Row
                cel.MergeArea.Resize(, 11).Interior.ColorIndex = 43    'Exemple 1 (feuille)
            End If
        Next
        If l <> 0 Then ActiveWindow.ScrollRow = l
    End If
    Application.ScreenUpdating = True
End Sub

Private Sub TextBox1_Change()
    Dim idx As Variant: idx = CVErr(xlErrNA)
    If TextBox1 <> "" Then idx = Application.Match(TextBox1.Text & "*", Range(Cells(10, 1), Cells(Rows.Count, 1).End(xlUp)), 0)
    If Not IsError(idx) Then
        ThisWorkbook.Names.Add "Position_Trouvée", 9 + idx
        Application.Goto Cells(9 + idx, 1), True
    Else
        ThisWorkbook.Names.Add "Position_Trouvée", 0
        Application.Goto Cells(10, 1), True
    End If
End Sub