USF reprise données autre feuille automatique

Private Sub UserForm_Initialize()
  Dim Boucle As Integer
  Dim Ligne As Integer
  With Feuil2
    Ligne = .Range("E65536").End(xlUp).Row
    For Boucle = 2 To Ligne
      ComboBox1.AddItem .Range("E" & Boucle)
    Next Boucle
  End With
  [COLOR=blue]' Récupérer les pourcentages[/COLOR]
[COLOR=blue]Me.TextBox1000.Value = Sheets("Codes").Range("B6")[/COLOR]
[COLOR=blue]Me.TextBox1001.Value = Sheets("Codes").Range("B7")[/COLOR]
[COLOR=blue]Me.TextBox1002.Value = Sheets("Codes").Range("B8")[/COLOR]
[COLOR=blue]'[/COLOR]
  MaFeuille = ActiveSheet.Name
  L = Sheets(MaFeuille).Range("A65536").End(xlUp).Row
  Sheets(MaFeuille).Cells(L, 1).EntireRow.Copy Destination:=Sheets(MaFeuille).Cells(L + 1, 1)
  L = L + 1
  Sheets(MaFeuille).Range(Cells(L, 2), Cells(L, 256)).ClearContents
  Cells(L, 1).Select
End Sub

With Sheets("Codes").Select
TextBox1000.Value = Range("B9").Value
TextBox1001.Value = Range("B10").Value
TextBox1002.Value = Range("B11").Value 
End With