XL 2019 Problème listbox vers textbox

Private Sub ListBox1_Change()

    If ListBox1.ListIndex >= 0 Then
        Buffer = ""
        For i = 0 To ListBox1.ListCount - 1
            If ListBox1.Selected(i) Then
                Buffer = IIf(Buffer = "", "", Buffer & ",") & _
                            ListBox1.List(i)
            End If
        Next
        If Buffer <> "" Then Txtbox_Feuille = Buffer
    End If

End Sub

Private Sub BP_RegrouperFeuille_Click() 'GO
If Txtbox_Feuille <> "" Then Sheets(Split(Txtbox_Feuille, " - ")).Select
End Sub

Private Sub ListBox1_Change()
Dim i&, x$
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) Then x = x & " - " & ListBox1.List(i)
Next
Txtbox_Feuille = Mid(x, 4)
End Sub

Private Sub UserForm_Initialize()
Dim s As Object
ListBox1.MultiSelect = fmMultiSelectMulti
For Each s In Sheets
    ListBox1.AddItem s.Name
Next
End Sub