Bug indentation balises Code???

Private Sub TB_Lettres_Change()
 
Dim c
Dim plage

Me.ListBox5.Clear
Me.TB_Lettres.SetFocus


With Sheets("Tables")
finVille = .Cells(Rows.Count, "E").End(xlUp).Row

Set plage = .Range(.Cells(10, "E"), .Cells(finVille + 1, "E"))


   For Each c In plage
        
     If UCase(c) Like UCase(Me.TB_Lettres) & "*" Then
         Me.ListBox5.AddItem c.Offset(0, 0)
         ListBox5.List(ListBox5.ListCount - 1, 1) = c.Offset(0, -1)
     End If
  Next c
   
  End With
   

End Sub