Affichage dans textbox la derniere ligne

bonjour

je voudrais affiche le dernière valeur du tableau a l ouverture de userform qui se trouve dans ma colonne B et l'afficher dans mon dans mon userform dans un textbox 1.

ci dessous un bout du code

rivate Sub CommandButton2_Click() 'Bouton VALIDER
Dim NewLig As Long
Dim laconcat As String
Dim NF
Dim Numero As String
Dim ctl As Control
Dim derniereligne As Long

 'ELEMENT ENREGISTRE DANS LE TABLEAU PRESENTATION RECAP
  With Sheets("02-Présentation Recap")

        NewLig = Application.Max(10, .Range("A" & Rows.Count).End(xlUp).Row + 1)
        .Range("A" & NewLig).Value = Application.WorksheetFunction.Max(Range("A:A")) + 1

      'concatener les textbox pour cree le nom de l'onglet
      laconcat = ComboBox4.Value & "_" & TextBoxannée.Text & "_" & TextBoxfiche.Text & "_" & ComboBox5.Value

   .Range("B" & NewLig).Value = laconcat 'APPELATION DE L'ONGLET ET DE LA FICHE

pouvez vous m'aider

merci par avance

Bonjour,

à tester,

Private Sub UserForm_Initialize()

With Sheets("02-Présentation Recap")

Me.TextBox1 = .Range("B" & .Cells(Rows.Count, "B").End(xlUp).Row).Value

End With

End Sub