Bouton recherche -User form

Bonjour ,

je suis entrain d'essayer d'ajouter un boutton search avec un text box dans un userform (CALENDAR_SLE) , auquel je dois faire une petite recherche avec un ID qui se trouve dans la cellule J$. Je cherche à afficher les données qui se trouvent dans le Tableau excel dans les textbox de la user form, ici j'arrive a faire la recherche mais j'ai pas eu les bonnes resultat c'est toujours le premier Textbox prend le resultat de la dernière cellule du tableau alors que j'ai besoin juste du nom et prénom qui se trouvaient dans les cellules C ET D

voici mon code merci

Private Sub CommandButton6_Click()
     
    Dim FindThis As String
     
    Dim LastColumn, LastRow As Integer
     
    Dim rw, FirstAddress, LastCell, SrchRnge
   
   
    Calendar_SLE.TextBox1 = ""
    Calendar_SLE.TextBox2 = ""
     
    LastRow = Sheet1.Range("$C$2").End(xlDown).Row
    LastColumn = Sheet1.Range("$C$2").End(xlToRight).Column
    LastCell = Cells(LastRow, LastColumn).Address
    SrchRnge = "$C$4:" & LastCell
     
     
    FindThis = Calendar_SLE.TextBox8
     
     
     
    With Sheet1.Range(SrchRnge).Cells
         
      Set rw = .Find(What:=FindThis, After:=Sheet1.Range("$C$4"), LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
         
    End With
     
    On Error GoTo notfound
     
    Calendar_SLE.TextBox1 = Sheet1.Range("C1").Offset(Range(rw.Address).Row - 1, Range(rw.Address).Column)
   ' Calendar_SLE.TextBox2 = Sheet1.Range("C1").Offset(Range(rw.Address).Row - 1, Range(rw.Address).Column + 1)
    
     
     
notfound:
     
    If Calendar_SLE.TextBox2 = "" Then
         
        MsgBox ("No Result for " & FindThis)
         
    Else
    End If
     

End Sub