Afficher tous les éléments d'une listbox dans une Msgbox

Private Sub CommandButton1_Click()
    Dim tableau As String
    ListBox1.Clear

    'je parcours chq feuille du classeur
    For Each sh In Worksheets
        'si la feuille est visible je met son nom dans ma listbox
        If sh.Visible = True Then
            Me.ListBox1.AddItem sh.Name
        End If
    Next sh
    'Les index des Listbox commencent par zéro
    For i = 0 To ListBox1.ListCount - 1
        tableau = tableau & ListBox1.List(i) & "-"
    Next i
    MsgBox "liste: " & tableau
End Sub