Copier valeur listbox dans cellule

Function ConcaTList() As String
Dim Txt As String
    For i = 0 To ListBox1.ListCount
     If ListBox1.Selected(0) = True Then
            Txt = "****"
            GoTo suite
            End If
         If ListBox1.Selected(1) = True Then
            Txt = "xxxxx"
            GoTo suite
        End If
        If ListBox1.Selected(i) = True Then
            Txt = Txt & ListBox1.List(i)
        End If
    Next i
suite:
    ConcaTList = Txt
    
End Function

Private Sub CommandButton1_Click()        'bouton valider

    Sheets("FEUIL1").Select
    If ConcaTList() = "****" Or ConcaTList() = "xxxxx" Then
        ActiveCell.Offset(, 5) = ConcaTList()
    Else
        ActiveCell = ConcaTList()
    End If
End Sub